


ONC DORE 


AKTUELE BIJLAGE BIJ COMMODORE DOSSIER 


7. commonorE DOSSIER “AKTIEF.ver- 


-schijnt 12 keer per jaar. In februari, 


| mei, augustus en november als bijla- 


ge in het hart van Commodore Dos- 


sier, in de overige maanden als los- 
se uitgave uitsluitend voor abonnees 
van Commadore Dossier. 


DEZE MAAND: 


TIPS & TRUCS . 


EN 
LISTINGS VAN 
LEZERS 
Vanaf Pagina 1 
Met onder andere: Handige Pokes, Lotto, 


Karaktergenerator, Fucties voor de Vic-20, 


 Knipperen, Conversieprogramma, en vele 
andere programma’s van lezers. 


CD-MARKT 
Pagina 14 
Gratis kleine advertenties van en voor 
abonnees. 


de stapel bijdragen van lezers. 


| onaanvaardbaar hoog gewor- 


den. Daar moest iets aan gebeu- 
ren. Tenslotte doen wij in elk 
nummer een bero po 


maanden wachten om zijn bij- 
drage in het blad terug te vin- 
den. Daar komt nog eens bij 
dat het niveau van de bijdragen 


_vaak zo hoog is, dat we ze de 


andere lezers eenvoudig niet 
mogen onthouden. 

Toch kunnen niet alle inzendin- 
gen worden geplaatst. Een aan- 


tal ingestuurde programma’s. 


was simpelweg gejat. Hen lezer 
presteerde het zelfs om ons e 
programma op te sturen da 
rechtstreeks was overgenomen 


BAN HET 
DATASPOOK 
Data-regels zijn de schrik van 
mensen die regelmatig listings 
intikken. Het is vrijwel onmoge- 


_ lik om een lange rist getallen 


onder fouten in te tikken, 
Commodore Dossier heeft na- 
tuurlijk zijn controlegetal dat 
aan het eind van elke regel con- 


- troleert of alles in orde is. Maar 


ijvoorbeeld het checksum- _ 
programma zelf, dat uiteraard 


a ee is van controlege- 


anse, Engelse en Duitse 
_ bladen hier op de redactie niet 
worden gelezen. Zelfs onze bin- - 


nenlandse collega’s/concurren- 


ten ontkwamen niet aan de co- 
__ pieerdrift van sommige van on- 


lezers. 

mdanks de nauwkeurige con- 
trole op originaliteit blijft het 
altijd mogelijk dat een gestolen 
programma door de mazen 
glipt. Daarom stellen we nog 
maar eens duidelijk dat alle in- 
zenders de redactie oe 
van plagiaat. 
En dan komt het: wae ve 
verschillende lezers dezelfde of 
vergelijkbare programma’ sin 
sturen, Programma’s als _ 
Mastermind, Eeuwigdurende 


Kalender en Tik,Tak,Tor zijn er. 


loos zijn de brieven die melding 


maken van een ’out of data er- 
ror’ of “illegal quantity’ in r 
gels 10 of 20, gevolg van 

fout bij het intikken van 


. data. 


Danny Scheers uit Deurne in 
Belgié schreef het volgende arti 


kel over dit probleem. Sommige 


van zijn oplossingen zijn niet 
direct van toepassing op Com- 
modore Dossier, omdat wij im- 
mers onze checksum hebben, 
mensen. die ook pro- 


tturlijk kan het ook voorkomen 
dat ae lezers werkend: achter | 


Van een aantal lezers hebben we 
geen rekening- of gironummer 


-ontvangen. Hoewel hun bijdrage 


is geplaatst, hebben 
norarium dus nog ni 
overmaken, .Verhelpi 
met een kort briefje. 
Tenslotte wijzen we u | 


de map "Listings \ van lezer: 
dit speci 


mumer akelig 


is. Er wordt op u gerekend! 


genezen. 
3. Is er toch een fout in de 


_ data-regels geslopen, dan kan 


men als volgt te werk gaan: 
a, Gebruik een spraak- 
synthesizer. Na elke READ- 
variabele last u een SAY- 
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Het beste uit POSTBUS 9194. De programma’s die in deze rubriek worden geplaatst, worden beloond met 50 guiden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De pean bij voorkeur inzenden op schijf of cas- 
sette, zodat we zeker weten dat ze ‘lopen’. Gedrukte programma’s moeten in elk geval van characterstrings in plaats van 


besturingstekens zijn voorzien. De beste propianmas uit deze rubriek kunnen in am rat 
-be 


SIER in samenwerking met een software-nearijf commercieel op de markt te worden gebrac 


komen om door COMMODORE DOS- 
t. In dat geval staat de auteur alle 


rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 


® variabele in, desnoods met een 
yertragingslus. De computer 
leest dan data voor data voor 
en u volet op de gedrukte 
listing. Gevonden fouien tekent 
u aan, maar u verbetert pas als 
het hele programma doorlopen 
is. Dan weer eerst saven alvo- 
rens te runnen. 

b, Wie niet over een spraaksyn- 
thesizer beschikt kan de volgen- 
de methode gebruiken. Na elke 
READ-variabele voegt u toe: 
PRINT variabele,:GOSUB xxxx 
Op regel xxxx komt dan: 

GET IN$; IF IN$=”’ GOTO 
XXX 

En op de volgende regel: 
RETURN 

Op deze manier drukt de com- 
puter de data een voor een af 
en wacht tussen elke data totdat 
u op een toets drukt. Weer 
geldt: eerst helemaal controle- 
ren, dan verbeteren, dat saven 
en dan pas weer runnen. 

4. Als u een illegal quantity er- 
ror in xxxx krijgt, kan regel 
xxxx daar meestal niets aan 
doen. Daar staat namelijk ’PO- 


KE variabele’ of iets dergelijks. 
Om het regelnummer van de 
foute data te ontdekken, tikt u 
in: 

PRINT 

PEEK (64)*256 + PEEK (63) 


Programmeurs kunnen voor 
intikkende zwoegers 

heel wat problemen voorkomen. 

1. Bouw per programma een 
controle-som in. Tel alle data 
op en schrijf bijvoorbeeld: 

100 SOM=0:FOR X=1 TO 
20:READ 

A:SOM=SOM + A:NEXT 

110 IF SOM&% 1447 THEN 
PRINT?’ FOUT IN DATARE- 
GELS”’:STOP 

1000 DATA 
4,5,6,10,1,20,124,100,34,135 
1010 DATA 

23,145,129,240, 124,233, 12,2,88, 
ie 

De programmeur kan deze som 
door de computer laten maken 
dus de hoeveelheid werk valt 
wel mee. 

2. Wat meer werk, maar ook 
heel wat informatiever is om de 


NOTA BENE 

Alle programma’s op deze en de volgende pagina’s zijn voor- 
zien van onze checksum. Die is te herkennen aan het voor- 
voegsel (shift)/(spatie). Deze twee woorden moet u dus niet © 
intikken, maar u dient tegelijkertijd de shift-toets en de spa- 
tiebalk in te drukken. Op het scherm ziet dat er uit als een 
gewone spatie. Daarna voert u het feitelijke controle-getal in. 
Het ckecksum-programma, dat er voor zorgt dat uw compu- 
ter ook iets begrijpt van het ingevoerde controle-getal, vindt 
u op pagina 37 van Commodore Dossier. 


dataregels per regel op te tellen 
en de som ook per regel te ver- 
melden. De dataregels moeten 
wel hetzelfde aantal data heb- 
ben. Schrijf twee FOR-NEXT- 
lussen in plaats van één en voer 
een controle uit na de eerste. Is 
de controle FALSE’ dan laat u 
het regelnummer afdrukken 
waarop de foute data staan. 
Het voorbeeld uit tip 1 ziet er 
dan als volgt uit: 

100 FOR XX=1 TO 

2:S0M =0:FOR X=1 TO 10 
110 READ 

A:SOM =SOM + A:NEXT: 


OMSLAAN, KNIPPEREN EN ONDERLIJNEN 


De heer Barendrecht uit Maas- 
dam stuurde de volgende drie 
tips. De subroutine ’omslaan’ is 
bedoeld om onafhankelijk van 
het indrukken van de spatiebalk 


OMSLAAN 


door een programma te kunnen 
*bladeren’. Het stukje program- 


ma moet volgens de heer Baren- 


drecht aan het einde van een 
programma staan en er moet 


naar toe worden gesprongen 
met een ’gosub’. De program- 
maatjes ’onderlijnen’ en ’knip- 
peren’ doen gewoon wat ze 
beloven. 


READ CONTROLE 

120 IF CONTROLE &%2S0M 
THEN PRINT’’FOUT IN RE- 
GEL” ;PEEK(64)*256 + PEEK(6 
3) 

130 NEXT 

1000 DATA 
4,5,6,10,1,20,124, 100,34, 135,439 
1010 DATA 
23,145,129,240,124,233,12,2,88, 
12,1008 


_ De PRINT PEEK 


(64)*256+ PEEK(63) geeft altijd 
het juiste regelnummer, dus dit 
stukje kan al in het programma 
worden verwerkt. 


10 printchr$(18)"voor verder:druk op ’space’ “chr$(146)<shift>/<spatie>f6 
20 getp#:ifps="“then20<shift>/<spatie>13 
30 ifasc(p$)=130rasc(p$)=14ithen20<shift>/<spatie>bé 
40 return<shift>/<spatie>das6 


KNIPPEREN 


10 le$="":forx=1to9:le$=le$tchr$(157):next<shift>/<spatie>d07 
20 printchr#¢(147)<shift>/<spatie>79 


30 print"programma voor het laten “chr$(18)"°knipperen”chr$(146)<shift>/<spati 


e>dba 


40 print"van een woord.”<shift?/<spatiedc9 
50 printchr$(17)"een woord laten knipperen”;<shift>/<spatie>7d 

55 fork=1to20:printleschr#(18)"knipperen"chrS(146)3<shift>/<spatie>07 
60 forkk=1to50:next:printle$"knipperen”;:forkk=1to50:nextkk,k<shift>/<spatie>84 
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COMMODORE oyoy se 


ONDERLIJNING 


60 fork=1toe15:forkk=1to25:print* "3 


<spatiedcd 


[BENGE VAT EZE 


50 print: print: print"een lopende onderlijning."<shift>/<spatie>s1 


PEL 






tnextkkK:print:printchr$(145)chr$(145)<shift>/ 


70 forkk=lto25:print" “3:nextkk:print:printchr$(145)chr$(145):nextk(shift>/<spat 


ie>id 


LUCIFERS 

M.R. de Rozario uit Geertrui- 
denberg stuurde ons de bijgaan- 
de computerversie van het alou- 
de luciferspelletje. In het echt 
wordt het spelletje met één sta- 
peltje lucifers gespeeld, waarvan 


keer afnemen. Wie de laatste lu- 
cifer wegneemt, heeft gewon- 
nen. Tenminste, dat beweert 
M.R. de Rozario. Wij menen 
ons uit onze jeugd te herinneren 
dat degene die de laatste lucifer 


In deze computerversie liggen er 
in elk geval meer stapeltjes luci- 
fers op tafel. Maximaal 5. De 
speler mag minimaal | en maxi- 
maal 5 lucifers wegnemen. 
Streepjes geven aan hoeveel lu- 


een schuine streep voor elke 
vijfde lucifer, een kruis voor el- 
Ke tiende. De speler voert eerst 
in van welke stapel hij lucifers 
wegneemt en dan hoeveel. 


twee spelers | of 2 lucifers per = moet oprapen, verloren heeft. cifers er op een stapeltje liggen, 


LUCIFERS 


5S poke53280, 15:poke53281,15<shift>/<spatie>3e 


10 printchr$(147)chr$(17)chrs(31)"* KRKKKKKKKKKKKKKK" CShift>/<spatie 


263 

20 print” KKK KKKKKK KKK” CShift>/<spatie>sd 
30 print” xxxklucifersxxxx"<shift>/<spatie>96 
40 print” KKKKKKKKKKKKKKKK” CShift>/<spatie>bl 
50 print“ KKKKKKKKKKKKKKKK" CShift>/<spatierdab 


60 printchr$(17)chr$(17)chrs(17)chr$(17)"* 
<spatie>bo 

70 printchr$(17)” 

80 printchrs(17)chr$(17)"* 
90 £$="":getf$<shift>/<spatie>73 

100 iff$=" “thenprintchr$(142):goto130<shift>/<spatie>51 

110 iffs="athenend<shift>/<spatie>b2 

120 goto90<shift>/<spatie>£8 

130 poke53280, 15:poke53281,15<shift>/<spatie)>b9 

140 z=Cint(rnd(tid*5)+1):n=Cint(rnd(ti)«5)+1)<shift>/<spatie>a2 

150 lus="BBBB/BBBBVBBBB/BBBBVBBBB/BBBBVBBBB/BBBBV”<shift>/<spatie>19 

160 forh={toz<shift>/<spatie>14 

170 1Ch)=Cint(rnd(tid*50)+1):if1¢h)<1Othen!70<shift>/<spatie>daa 

180 nexth<shift>/<spatie>7e 

190 printchr$(147)chr$(146)chr$(31)"max. weg te nemen lucifers is“n<shift>/<spat 
ie>df4 

200 forx=1toz:printchr$(17)chr$(152)"stapel’x<shift>/<spatie>b8 
210 printchrs(144)lefts(lus,1¢x)):nextx<shift>/<spatie>91. 

220 print:printchrs(17)chr$(31)"jouw beurt “<shift>/<spatie>b1 
230 h=0:a=O:printchr$(30):input"welke stapel , aantal lucifers “3 
tied57 

240 ifh=Othen90<shift>/<spatie>1f 

250 ifh?zthenprintchr$(i7)chré(28)"er zijn maar"z"stapels” chr$(31): goto230<shift 
2/<spatiedaf 

260 ifa>l(h)thenprintchrs(17)chr$(28)"stapel “n“bevat°1(h)“lucifers” :goto230<shif 
t>/<spatieoca 

270 ifa<lora>nthenprintchrs(17)chr$(28)"min 1 en max"n“weg nemen”:goto230<shift> 
/Cspatied8b 


[space] = nieuw spel"<shift>/ 


[shiftl[spce] = einde”<shift>/<spatie>04 
mdr 200i1"<shift>/<spatie>91 


sasshift>/<spa 


280 1Ch)=1Ch)-atshift>/<spatie>4i 

290 if1€h)<>0then340<shift>/<spatie>Of 

300 y=1<shift>/<spatie>f7 

310 ifl¢y>)=Oandy<=ztheny=ytl:goto3lO<shift>/<spatie>8s 

320 ify>zthenw$=" jij bent ":wv=l:goto400<shift>/<spatie>55 
330 h=y<shift>/<spatie>des 

340 x=1¢shift>/<spatie>8e 

350 if (xx(nt+i))<l Ch) thenx=xt+1:goto350<shift>/<spatie>48 

360 a=1(h)-(€Cx-1)4(n+1)): ifadnthena=Cint(rnd(tid*n)+1)<shift>/<spatie>be 
370 1(hd=1Ch)-ac<shift>/<spatie>2b 

380 fory=itoz:iflCy)=Othennexty:v$=" jij bent “:wv=2:goto400<shift>/<s 


patie>31 


390 y=z:nexty: gotol90<shift>/<spatie>5c 

400 ifwv=lthenwv$S=wS+"gewonnen ! “<shift?/<spatie>41 

410 ifwv=2thenwv$=v$+"verloren ! “<shift>/<spatie>43 

420 printchrs(147)<shift>/<spatie>c8 

430 ti$="000000":f$=""<shift>/<spatie>dce 

440 getfs<shift>/<spatie>7a 

450 poke53280,0:poke53281,1:printchr$(147)chr$(144)chr$(17)<shift>/<spatie>99 
460 printchr$(17)chr$(17>chr$(17)chr$(17)chr$(C17)chrs(17)chr$(17)chr$(17)<shift> 


/<spatied54 
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470 
480 


490 
500 


510 
520 
530 


printchrs(18)" 
printchrs(18)wvsS:<shift>/<spatie>rad 
printchr$(18)>" 

iff$=" “thenl30<shift>/<spatie>dib 
1ff£S="Athenend<shift>/<spatie>23 
ifti<SthenS20<shift>/<spatie>8a 
getfs<shift>/<spatie>d3 

540 poke53280, 1:poke53281,0:printchrs(147)chrs(5)chrs$(17)<shift>/<spatie>40 

550 printchr$¢17)}chr$(17.chré€17)chr$¢€17)chr$¢€17)chr$(17)chr$ (17> chrs(17)<shift> 
/<spatie>bd : 

560 printchrs¢18)° 

570 printchrs(18)wvs;<shift>/<spatie>70 
580 printchr$(18)”" 

590 iffs=" “thenl30<shift>/<spatie>a2 
600 iff$="athenend<shift>/<spatie>86 
610 ifti<1Othen610<shift>/<spatiedd4 
620 goto430<shift>/<spatie>dd 


"3<€shift>/<spatiedba 


"3<shift>/<spatie>86 


“3<shift>/<spatie>5f 


“3<shift>/<spatie>2b 


KARAKTERGENERATOR 
Kwaliteits-inzending van W. Sit- der in beeld verschijnen nu de 
ters uit Klundert. 255 te veranderen tekens en ver- 


matisch de bijbehorende data 
voorgschoteld krijgt. Om tekens 


met de spelpook naar een teken 
onder in beeld te gaan en ver- 


Met behulp van de joystick en 
het toetsenbord maakt het vol- 
gende machinetaal-programma 
een nieuwe letter-set. 

Als het programma geRUNd 
wordt, vraagt hij of u de 
bestaande set wilt behouden of 
niet. Als u nog niets heeft ge- 
daan, antwoordt u natuurlijk 
met n(ee). De bestaande 
karakter-set wordt nu vanuit 
ROM naar RAM geladen. On- 


der wordt een veld zichtbaar 
van 8 bij 8 blokjes met daarin 
een paarse cursor. Links van 
het veld ziet u een cijferreeks, 
de data van het teken dat in be- 
werking is. Het paarse blokje is 
te bewegen met de spelpook in 
poort 2. Een druk op de vuur- 
knop levert een wit blokje op, 
een hernieuwde druk laat dat 
weer verdwijnen. Zo maakt u 
uw eigen tekens, terwijl u auto- 


te gaan definiéren drukt u op D 
waarna het apestaartje onder in 
beeld wit oplicht. Met de spel- 
pook zoekt u nu het teken op 
dat u zojuist in het werkveld 
heeft veranderd. Het teken on- 
derin wordt met een druk op de 
vuurknop hetzelfde als het zo- 
juist in het werkveld aange- 
maakte teken. Met W wordt het 
werkveld schoongewist. Door 
eerst op D te drukken en dan 


volgens op C te drukken, ver- 
schijnt dat teken uitvergroot in 
het werkveld, waarna u er aan 
kunt gaan rommelen. Met de 
toets X keert u terug naar Basic 
met behoud van de zojuist aan- 
gemaakte teken-set. Via 
run/stop/restore komt u in Ba- 
sic met de fabrieks-teken-set. 
Na een reset kan de generator 
weer worden opgeroepen met 
SYS 49152. 


KARAKTER GENERATOR 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


fori= 49152 to 50819<shift>/<spatie>db4 

readx:pokel,x:s=s+x:next<shift>/<spatiere3. 
data 76, 65.192. 17, 
data 75, 84, 69, 82, 
data 79, 82, 32, 86, 
data 48, 13, 17, 32, 
data 32, 32, 32, 32, 


82, 
65, 
49, 


65<shift>/<spatiedel 
84<shift>/<spatie>2b 
46<shift>/<spatie>23 
32<shift>/<spatie>30 


82. 32. 32, 32. 75. 65, 
B2, 71, 69, 78. 69, 82, 
69, 82, 83, 73, 69, 32, 
32, 32, 32, 32, 32, 32, 32, 
32, 87, 32, 83, 73, 84, 84, 69<shift>/<spatie>0O 
data 82, 83, 32, 13, 0,169,147, 32,210,255,169, 64¢shift>/<spatie>33 
data 141,134, 2,169, 3,141, 32,208,141, 33,208, 160<shift>/<spatie?10 
data 0,185, 3,192,240, 46, 32,210,255, 200,208,245<shift>/<spatie>1b 
data. 17, 17, 32, 32, 77, 79, 69, 84, 32, 68, 69, 32<shift>/<spatie>d6b 
data 83, 69, 84, 32, 66, 69, 72, 79, 85, 68, 69, 78<shift>/<spatie>73 
data 32, 66, 76, 73, 74, 86, 69, 78, 32, 40, 74, 47<shift>/<spatie>d7f£ 
date 78, 41, 13, 0,160, 0,185, 96,192,240, 6, 32<shift?/<spatie>/e 
data 210,255,200,208,245, 32,228,255,201, 74,240, 69<shift>/<spatie>67 
Gata 201, 78,240, 21. 76,149,192,169.145, 32,210, 295<shift>/<spatie>o5 
data 169, 32,162, 0, 32,210,255,232,224, 80,208, 248<shift>/<spatie>9b 
data 96, 32,163,192,120,165, 1, 72, 41,251,133, i<shift>/<spatie>a6 
data 169,208,133, 3,169, 48,133, 5,160, 0,132, 2<shift>/<spatie>83 
data 132, 4,162, 32,177, 2,145, 4,200,208,249,230<shift>/<spatie>bd 
data 3,230, 5,202,208,242,104,133, 1, 32,163,192<shift>/<spatie>bi 
data 173, 24,208, 41,241, 9. 12,141, 24,208, 88, 76<shift>/<spatie>90 
data 251,192, 0,254,254, 254,254, 254, 254, 254,255, 160<shift>/<spatieded 
data 0,185,242,192,201,255,240, 6,153,248, 55,200<shift>/<spatierdc 
dats 208,243,169,119,133,251,169, 5,133,252,:62, 8<shift>/<spatie>f7 
data 160, 0,169,255,145,251,200,192, 8,240, 2,208<shift>/<spatie>f3 
data 247, 24,165,251,105, 40,133,251,165,252,105, O<shift>/<spatie>cl 
data 133,252,202,208,227,162, 0,134,251,165,251,157<shift>/<spatie>da7 
data 208, 6,232,208,246,169, 6,160, 0,153,231,216<shift?/<spatierda 
data 200,208,250, 153,230,217, 200, 208, 250, 153,230, 218<shift>/<spatie>27 
Gata 200,208,250,141,230,219,141,231,219,169,119,133<shift>/<spatie>36 
data 251,169,217,133,252,162, 8,169, 0,160, 0,145<shift>/<spatie>38 
data 251,200,192, 8,240, 2,208,247, 24,165,251, 105<shift>/<spatie>35 
data 40,133,251,165,252,105, 0,133,252,202,208,227<shift>/<spatie>39 
data 76,132,193. 0,169, 0,141,131,193. 76,204, 193<shift>/<spatie>iz 
data Oo, ©, 6. 6, 0. 6. +O, CG. OO, 6G, GO, O<shifto/<spatie>oc 
data ©, 6, 0. 6. 6, 0, 0. 6. G&G, 0. 0. Often ft cspatiadse 
data Oo, 0, GO. OO, 0. Oo 9, 0. 0, +O. OG, O<Shift>/<epatie>/s 
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460 data 0, 0, 0, 0, 0, 9, 0, 0% 0, 0, ©. Ofahi ft) /<spatierde 
490 dats 0, 6, 0, 0, 0, 0, 6, 0, 6, G, ©, Otshift>/<cpatie>44 
500 data 0, 0, O, 0,169,119,133,174,169,217,133,175<shift>/<spatie>5é 
510 data 169,119,133,251,169,217,133, 252, 169,140,133, 253<shift>/<spatie>50 
520 data 169,193,133,254,162, 8,160, 0,177,253,145,251<shift>/<spatie>dab 
530 data 200,192, 8,240, 2,208,245, 24,165,251,105, 40<shift>/<spatie>bO 
540 data 133,251,165,252,105, 0,133,252, 24,165,253, 105<shift>/<spatie>85 
550 data 8,133,253,165,254,105, 0,133,254, 202,208, 214(shift>/<spatie?8c 
560 data 76. 22,194. 16. 15, 0,173, 0,226, 41, 16,14i<shift>/<apaties90 
570 data 19,194,173, 0,220, 41, 15,141, 20,194,169, 15<shift>/<spatie>a7 
580 data 56,237, 20,194,141, 21,194,201, 1,240, 15,201<shift>/<spatie>ea 
590 data 2,240, 42,201, 4,240, 69,201, 8,240, 77, 76<shift>/<spatiere3 
600 data 151,194,165,174,201,119,208, 9,165,175,201,217<shift>/<spatie>f3 
610 data 208, 3, 76,151,194, 56,165,174,233, 40,133,174(shift>/<spatie>£8 
620 data 165,175,233, 0,133,175, 76,151,194,165,174,201<shift>/<spatie>fb 
630 data 143,208, 9,165,175,201,218,208, 3, 76,151,194<shift>/<spatie>e6 
640 data 24,165,174,105, 40,133,174,165,175,105, 0,133<shift>/<spatie)>2c 
650 data 175, 76,151,194,172,131,193,240, 18,136,140,131<shift>/<spatie>2d 
660 data 193, 76,151,194,172,131,193,192, 7,240, 4,200¢shift>/<spatie>0Ob 
670 data 140,131,193, 76,155,194,255, 32, 53,197,173, 19<shift>/<spatie>35 
680 data 194,201, 0,208, 3, 32,236,194,165,197,201, 18<shift>/<spatie>0e 
690 data 208, 3, 32,150,195,165,197,201, 23,208, 21,169<shift>/<spatie>26 
700 data 147, 32,210,255,169, 6,141, 33,208,169, 14,141<shift>/<spatie>2a 
710 data 32,208,169, 14,141,134, 2, 96,201, 9,208, 3<shift>/<spatie>57 
720 data 32,130,195,169, 4,172,131,193,145,174,162,200<shift>/<spatie>40 
730 data 160, 0,200,208,253,232,208,248, 76,212,193, O<shift>/<spatie>40 
740 data 0, 0, 7, 56, 56,165,174,233,119,141,232,194<shift>/<spatie4e 
750 data 165,175,233,217,141,233,194,162, 0,173,232,194<shift>/<spatie>41 
760 data 201, 0,240, 29,162, 1, 56,173,232,194,233, 40<shift>/<spatie)60 
770 data 141,232,194,173,233,194,233, 0,141,233,194,173¢shift>/(spatie>a3 
780 data 232,194,201, 0,240, 3,232,208,229,142,234,194<shift>/<spatie)a7 
790 data 24,172,234,194,169, 0, 24,105, 8,136,208,250<shift>/<spatie>bc 
800 data 141,235,194,173, 19,194,208, 67,173,231,194,240<shift>/<spatie>85 
810 data 29, 24,173,235,194,109,131,193, 168,185,140, 193<shift>/<spatie>8b 
820 data 201, 0,240, 5,169, 0,141,231,194,169, 1,153<shift>/<spatie>96 
830 data 140,193, 32,124,195, 96,173, 19,194,208, 28, 24<shifto/<spatiedaf 
840 data 173,235,194,109,131,193,168,185,140,193,201, i<shift>/<spatie>e6 
850 data 240, 5,169, 1,141,231,194,169, 0,153,140,193<shift>/<spatie>fd 
860 data 32,124,195, 96,162, 0,232,208,253, 96,160, O<shift>/<spatie>c4 
870 data 169, 0,153,140,193,200,192, 64,240, 2,208,246¢shift>/<spatie>£9 
880 data 96, 0, 0, 15, 0,255,169, 1,141,208,218, 160<shift>/<spatie>d8 
890 data 0,140,148,195,173, 0,220, 41, 16,141,145,195<shift>/<spatie>dd 
900 data 173, 0,220, 41, 15,141,147,195,169, 15, 56,237<shift>/<spatie>28 
910 data 147,195,141,146,195,201, 4,240, 7,201, 8,240<shift>/<spatie>2c 
920 data 21, 76,232,195,172,148,195, 140,149, 195,136, 140<shift>/<spatie>39 
930 data 148,195,169, 1,153,208,218, 76,232,195,172,148<shift>/<spatie>3! 
940 data 195,140,149,195,200,140,148,195,169, 1,153,208<shift>/<spatie>0c 
950 data 218, 76,232,195,162,200,160, 0,200,208, 253,232<shift>/<spatie>21! 
960 data 208,250,173,146,195,208, 17,173,145,195,240, 23<shift>/<spatie>69 
970 data 165,197,201, 20,208, 3, 76,145,196, 76,160,195<shift>/<spatie)57 
980 data 172,149,195,169, 6,153,208,218, 76,160,195, 169<shift>/<spatie?46 
990 data 6,172,148,195,153,208,218,172,148,195,192, O<shift>/<spatie>78 
1000 data 240, 35, 76, 38,196,255,162, 0,142, 37,196,174<shl£t>/<spatie>48 
1010 data 148,195,169, 0, 24,105, 8,144, 3,238, 37,196<shift>/<spatie>5b 
1020 data 202,208,245,133,193,173, 37,196,133,194, 76, 75ishift>/<spatie>62 
1030 data 196,169, 0,133,193,133,194, 24,165,193,105, O<shift>/<spatie)91 
1040 data 133,193,165,194,105, 48,133,194, 76, 94,196,126<shift>/<spatie>8d 
1050 data 8,255,162, 0,142, 92,196,160, 0,140, 91,196<shift>/<spatie>b8 
1060 data 189,140,193, 13, 91,196,141, 91,196,192, 7,240<shift)/<spatie)be 
1070 data 7, 14, 91,196,200,232,208,236,172, 92,196,173<shift>/<spatie>b9 
1080 data 91,196,145,193,200,140, 92,196,192, 8,240, 4<shift>/<spatie>9c 
1090 data 232, 76, 99,196, 96,172,148,195,240, 31,162, O<shift>/<spatie>def 
1100 data 142, 37,196,174,148,195,169, 0, 24,105, 8.144¢shift)/<spatie>ed 
1110 data 3,238, 37,196,202, 208,245,133, 163,173, 37, 196<shift>/<spatie>fe 
1120 data 133,164, 76,187,196,169, 0,133,163,133,164, 24<shift>/<spatie>c7 
1130 data 165,163,105, 0,133,163,165,164,105, 48,133,164<shift>/<spatie>fd 
1140 data 162, 0,160, 0,177,163, 41,128,240, 5,169, i<shift>/<spatiedea 
1150 data 157,140,193,232,177,163, 41, 64,240, 5,169, 1<shift>/<spatie>dd 
1160 data 157,140,193,232,177,163, 41, 32,240, 5,169. 1<shift>/<spatie)20 
1170 data 157,140,193,232,177,163, 41, 16,240, 5,169, 1i<shift>/<spatie?3c 
{140 dats 187,{40,193,232,177,163. 41, 8,240, 5,169, 1<shift>/<spatie>od 
1190 data 157,140,193,232,177,163, 41, 4,240, 5,169, i<shift>/<spatie>3b 
1200 data 157,140,193,232,177,163, 41, 2.240, 5,169, 1<shift>/<spatie>2b 
1210 data 157,140,193,232,177,163, 41, 1,157,140,193,232<shift>/<spatie>20 
1220 data 200,192, 8,208,159,169, 6,172,148,195,153,208(shift)/<spatle)69 
1230 data 218, 76, 66,197,195, 36, 24, 24, 60, 60, 24,126<shift>/<spatie>éb. 
1240 data 126, 8,162, 9,160, 8, 24, 32,240,255,162, O<shift>/<spatie>7b 


1250 data 142, 65,197,160, 0,140, 64,197,189,140,193, 13<shift>/<spatie>71 
1260 data 64,197,141, 64,197,192, 7,240, 7, 14, 64,197<shift>/<spatie>47 
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data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
ifs<> 
print 


197,200,140, 
197,160, 0, 


0,233, 
168, 
48, 
210,255,169, 
255, 
255, 


109,133,173, 
136,172, 77, 
32, 32, 15, 

15, 76, 68, 

84, 32, 

15, 


0, 
0, 
0, 
0, 
QO, 


3,232,208,249, 
10,144, 
2,141,169, 
32,210,255, 232,224, 


32,210,255, 
32,210,255,200,192, 
32,112,133,189,239,142,240, 
22,109,133, 
3,208,127, 


14,189,233,142, 
32,112,133, 202,208,210,240, 


65,197,192, 
56,162, 
24,105,100,142,167, 
3,232,208,249, 
2,162, Oo, 


§,240, 


82,210,255, 
82,210,255, 
8,208,166, 


29, 


6; 

84, 3,205, 75, 
3,240, 47,173, 

83, 84, 89, 32. 

65, 35, 49, O, 

53, 54, 

69, 69, 


85, 
89, 
47, 
o4; 


0, 


44, 


75,255; 


oO, 
0, 
0, 
0, 
QO, 


SCHRIJEFMACHINE 


C. Fransen uit Dordrecht stuur- 
de het aardige programmaatje 
in dat een zogenaamd 


SCHRIJFMACHINE 


i) 
20 
30 
40 
50 
60 
70 
80 
90 


data 
data 
data 
data 


het 
Ce 


*schrijfmachine-effect’ be- 


werkstelligt. De snelheid van het 


typen kan worden geregeld in 


printchr$(147)<shift>/<spatie>67 
ford=itod<shift>/<spatie>c2 
reada$:k=K+i<shift>/<spatie>def 
forl=itolen(a$):printmid$S(a$,1,1);:forh=1tol00:nextinext<shift>/<spatie>cb 
printchr$(19):forg=itok:printchr$(17):nextg:nextd:end<shift>/<spatie>2f 
dit programma laat het zgn<shift>/<spatiedac 
schrijfmachine-effect zien.<shift>/<spatie)c3 
is ingezonden door<shift>/<spatie>97 
fransen uit dordrecht<shift>/<spatiedea 


SORTEERROUTINE 


Anton Houweling uit Utrecht 
stuurde een voortreffelijke, uit- 
voerig gedocumenteerde sorteer- 
routine in waarmee het mogelijk 
is een willekeurig aantal array’s 
alfabetisch te sorteren, bijvoor- 
beeld in een adressenbestand. 
Noorwaarde is dat alle in het 
bestand gebruikte array’s string- 
array’s zijn, gedimensioneerd als 
één-dimensionale array’s en 
maximaal 255 elementen bevat- 
ten. De sorteerroutine werkt 
volgens het bubble sort princi- 
pe, de te sorteren array wordt 
geheel doorlopen, waarbij steeds 
twee elementen met elkaar wor- 
den vergeleken. Indien het _ 
eerste element groter is dan het 
tweede, vindt verwisseling plaats 
en worden in alle overige ar- 
ray’s de overeenkomstige ele- 
menten ermee verwisseld. Indien 
bij het doorlopen van de array 


geen verwisseling plaatsvindt, 
wordt teruggesprongen naar Ba- 
sic. De routine verwisselt niet de 
string zelf, maar alleen de string 
beschrijver. Basic-array’s wor- 
den in het variabelen-gebied di- 
rect achter het Basicprogramma 
opgeslagen en aangegeven door 
de pointers start Basic-array 
($002f-0030) en einde Basic- 
array ($ 0031-0032). Bij één- 
dimensionale string-array’s vor- 
men de eerste zeven bytes de 
header, te weten twee bytes 
voor de naam, twee bytes voor 
de off-set naar de volgende ar- 
ray, éen byte voor de dimensie 
(01) en twee bytes voor de leng- 
te van deze ene dimensie. Na de 
header volst de beschrijver, te 
weten per element drie bytes, 
één byte voor de lengte en twee 
bytes voor de pointer die het 
begin-adres van de string 


24,105, 
24,189,167, 
3,208,242,169, 
82,210,255, 
32,210, 255, 


15,210, 


2, 
13, 
96, 


32, 


a1, 
15, 


89, 0, 


QO, 
0, 
Q, 
0, 
Oo, 


regel 40. Door de vertragingslus 
aldaar korter te maken, wordt 
het programma sneller, door 


aangeeft. 

Het Basic-gedeelte van het pro- 
gramma zet de naam van de te 
sorteren array in een willekeuri- 
ge string. De naam van deze 
string, de laatste door Basic ge- 
raadpleegde variabele, staat op 
$ 0045-0046. Het eerste gedeelte 
van de routine vergelijkt de na- 
men van alle array’s met die lo- 
catie en geeft de foutmelding 
*not found’ indien de gezochte 
array niet gevonden wordt. Te- 
vens loopt een teller mee ($ 
004e) die aangeeft na hoeveel 
overgeslagen array’s de gezochte 
array gevonden is. 

Indien de te sorteren array ge- 
vonden is, staat de pointer be- 
gin string-array in $ 005f-0060. 
In het tweede deel van de routi- 
ne worden de pointers die het 
eerste en het laatste element van 
deze string-array aangeven, vei- 


COMMODORE DOSSIER AKTIEF 8 


Pete 


200,232,208,236,172, 65,197,173, 64,197,158, 56<shift>/<spatie>65 
4,232, 76, 79<shift>/<spatie>92 
0,185, 56,197,233,100,144<shift>/<spatiedac 
56,162<shift>/<spatie>bb 
10,142<shift>/<spatie>87 
2,105<shift>/<spatie>b2 
32<shift>/<spatie>93 
82,210<shift>/<spatie>90 
32,210<shift>/<spatie>rec 
3,144<shift>/<spatie>fe 
3<shift>/<spatie>f8 
32<shift>/<spatie>dfc 
33<shift>/<spatie>ce 
3,201,157, 208<shift>/<spatiedeS 
15, 200<shift>/<spatie>2e 
83<shift>/<spatie>Ze 
62<shift>/<spatie>00 
80, 32, 85, 73<shift>/<spatie>38 
O<shift>/<spatie>Oc 
O<shift>/<spatie>die 
O<shift>/<spatieri4 
O<shift>/<spatie>62 
O<shift>/<spatied78 
. 255,255,255, 255<shift>/<spatie>76 
202116 thenprint”fout in dataregels”: end<shift>/<spatie dae 
“ok"<shift>/<spatie>é8 


hem langer te maken — | to 
1000 bijvoorbeeld — wordt het 
effect langzamer. 


lig gesteld op respectievelijk 

$ 00fb-00fe en $ 0024-0025. 

De pointer die het eerste ele- 
ment aangeeft, wordt overgeno- 
men op locatie $ 0059-0060 en 
van hieruit worden steeds twee 
elementen vergeleken. Indien 
verwisseling niet nodig is, wordt 
een teller ($ 004f) met 1 ver- 
hoogd. Bij verwisseling wordt 
naar het derde deel van de rou- 
tine gesprongen. 

In het derde deel wordt eerst de 
pointer eerste string-eerste ele-_ 
ment op een vrije locatie gezet, 
waarvandaan het meeverwisselen 
plaatsvindt. Tevens wordt de 
off-set veilig gesteld (resp. $ 
005d-005e en $ 0059-005a). 
Daarna wordt de string teller op 
0 gecontroleerd. Indien deze tel- 
ler 0 aangeeft, als de eerste 
string gesorteerd werd, wordt ~ 
een string overgeslagen en wordt 











Wail 


de pointer naar de mee te ver- den teruggesprongen. Indien de __beeld op een plaats in het ge- checksum-programma staat er 
wisselen elementen doorgeteld. string-teller niet 0 is, gebeurt in heugengebied vanaf $c000 bijvoorbeeld ook — en daarom 
Daarna geeft de off-set en poin-  feite hetzelfde, maar dan wordt (49152) worden gezet, zodat heeft Anton Houweling in dit 
ter de elementen van de overige de string-teller eerst afgeteld tot routine en Basic elkaar niet hin- geval gekozen voor $8000 
acray’s aan totdat de laatste ar- 0 voordat een array wordt over- deren. In het genoemde geheu- (32768). 

ray.is bereikt en naar het twee- _geslagen. gengebied is het echter vaak een 

de deel van de routine kan wor- De sorteerroutine kan bijvoor- drukte van belang — ons 
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10 FEM  KAKAKARA KK KAKA KHRKKAKEKKAKAKKRKKKC SHIft>/<spatiedaf 

rem x¢shift>/<spatie>s4 

rem sorteerroutine x¢shift>/<spatie>95 

rem : x<shift>/<spatie>d82 

rem ontwerp: x<shift>/<spatie>dfe 

rem anton houweling x<€shift>/<spatie>96 

rem coornhertstraat 3 x<shift>/<spatie>f9 

rem 3521 xe utrecht x<shift>/<spatiedcf 

rem xCshift>/<spatie>9d 

LEM — KKAKKKAKKKA KKK AK KAKKAKKKAKKAKKKKEKK Shift /<spatie>b6 

rem deze routine sorteert alphabetisch een bestand met een willekeurig aantal 
<shift>/<spatie28d 
21 rem stringarray’s volgens navolgend programma-voorbeeld:<shift>/<spatie>bb 
22 rem 400 input“u kunt sorteren op(n,a,w)"ss$<shift>/<spatie>86 
23 rem 410 ifs$="n" thens$=n*(0):gotos00<shift>/<spatie>be 
24 rem 420 ifs$="a"thens$=a$(0):goto500<shift>/<spatie>bo 
25 rem 430 ifss="w"thens$=w$(0)<shift>/<spatie>ac 
26 rem 440 sys32768:print”bestand gesorteerd” <shift>/<spatie>ca 
27 rem het bestand mag niet meer dan 255 adressen bevatten.<shift>/<spatie>91 
50 datai6é0,0,132,78,166,47<shift>/<spatie>97 
51 datai65,48,134,95,133,96<shift>/<spatie>da6 
52 datai97,50,208,4, 228, 49<shift>/<spatied9a 
53 data240,31,160,0,177,95<shift>/<spatie>94 
54 data200,197,69,208,6,165<shift>/<spatie>ad 
55 data70,209,95, 240,25, 230<shift>/<spatie>a8 
56 data78,200,177,95,24, 10i<shift>/<spatie>dal 
57 data95,170,200,177,95, 101i<shift>/<spatie?93 
58 data96,144,213,162,199,134<shift>/<spatie>dad 
59 data34,169,161,76,69, 164<shift>/<spatie>aé 
60 data200,177,95,24,101,95<shift>/<spatie>dab 
61 datai70,200,177,95,101,96<shift>/<spatied94- 
62 datai33,37,56,138,233,3<shift>/<spatie>9c 
63 datal33,36,176,2,198,37<shift>/<spatied92 
64 data200,177,95,32,150,177<shift>/<spatieded 
65 datai33,251,132,252,169,0<shift>/<spatie>de2 
66 datai33,63,133,79,133,2<shift>/<spatie>deS 
67 datai65,251,164,252,196,37<shift>/<spatie>d4 
68 data208,4,197,36,176,125<shift>/<spatie>dd9 
69 datal33,95,132,96,160,0<shift?/<spatieref 
70. datai77,95,133,253,200,177<shift>/<spatie>daz2 
71 data95,141,176,128,200,177<shift>/<spatie>ds& 
72 data95,141,177,128,200,177<shift>/<spatie>dé 
73 data95,133,254,200,177,95<shift>/<spatiede7 
74 datal41,173,128,200,177,95<shift>/<spatie>do 
75 datai41,174,128,24,165, 254<shift>/<spatie>de 
76 data208,1,56, 166,253, 240<shift>/<spatie>d8s 
77 data25,176,23,197,253,176<shift>/<spatiedef 
78 datail,170,160,0,185,0<shift>/<spatie>ded 
79 data0,217,0,0,208,8<shift>/<spatie>e6& 
80 data200, 202, 208, 244,165, 254<shift>/<spatie>f4 
81 datai97,253,176,57,162,3<shift>/<spatiercli 
82 datai60,0,177,95,72, 160<shift>/<spatiedf5 
83 data3,177,95,160,0,145<shift>/<spatie>cS 
84 data95,104,160,3,145,95<shift>/<spatiedfa 
85 data230,95,208,2,230,96<shift>/<spatie>dfl 
86 data202,208,229,32,252, 128<shift>/<spatiecs 
87 datai69,2,133,2,24, 165<shift>/<spatie>dc3 
88 data95, 16¢,96,105,3,144<shift?/<spatierfi 
89 datal,200,76,106,128, 165<shift>/<spatie>dca 
90 datad,240,3,76,94,128<shift>?/<spatie>f5 
91 data96,230,79,76,226,128<shift>/<spatie>c& 
92 datal65,47,105,7,133,93<shift>/<spatie>fa 
93 datai6é5,48,105,0,133,94<shift>/<spatie>f4 
94 datai60,2,177,47,56,233<shift>/<spatie>£7 
95 data3,133,89,200,177,47<shift>/<spatiedf£3 
96 datal70,176,1,202,134,90¢shift>/<spatie>f7 
97 datal6é5,78,133,92,208,23<shift>/<spatie>f2 


\ 
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98 datal6é9.1,133,92,133,2<shift>/<spatie>fb 

99 data24, 165. 93,164,94,105<shift>/<spatie>f8s 
100 data3, 144, 3,200, 132,94¢shift> /<spatie £5 
101 datai33.93,76,113,129,166<shift>/<spatie>c& 
102 data79,240,25,134,63,169<shift>/<spatie>fb 
103 data0,24,105,3,144,2<shift>/<spatie>fa 

104 data230,94,202, 208,246, 134<shift>/<spatie>£7 
105 data79,24,101,93,144,2¢shift>/<spatie>f7 
106 dataz30,94, 133,93,162,3<shift>/<spatie>c4 
107 datai60,0,177,93,72,160<shift>/<spatie>ca 
108 data3,177,93,160,0,145<shift>/<spatie>fc 
109 data93,104, 160,3,145,93<shift>/<spatie>c3 
110 dataZ230,93,208,2,230,94<shift>/<spatie>ce 
111 data202,208,229,198,92,24<shift>/<spatie>ce 
112 datal65,89,101,93,133,93<shift>/<spatiered 
113 datai65,90,101,94,133,94<shift>/<spatiered 
114 datai65,92,240,3,76,55<shift>/<spatie>ed 
115 datai29,165,2,201,1,240<shift>/<spatilerd2 
116 dataZz3,24,165,93,164,94<shift>/<spatiedda 
117 datal05,3,144,3,200,132<shift>/<spatie>ddd 
118 data94,133,93,169,1,133<shift>/<spatie>dl 
119 data2,133,92,76,113,129<shift>/<spatie>d8 
120 datai64,50,165,49,196,94<shift>/<spatieded 
121 data240,9,144,11,169,1<shift>/<spatie>de7 
122 datai33,92,76,55,129,197<shift>/<spatie>eb 
123 data93,176,245,24,165,63<shift>/<spatie>»ec 
124 datal05,2,133,79,96,53827<shift>/<spatie>dde 
125 a=32768<shift>/<spatie>b6 

130 readx:ifx<255thenpokea,x:t=ttx:a=atl:gotol130<shift>/<spatie>d8 
140 ift<>xthenprint“fout in data"<shift)>/<spatie>28 
141 end<shift>/<spatie>od 


CONVERSIE-PROGRAMMA 


Onderstaand programma is niet 
ingezonden door een lezer, maar 
geschreven door Commodore 
Dossier huisprogrammeur Roelf 
Sluman. We gebruiken het pro- 
gramma op de redactie om 
listings te ontdoen van de be- 
ruchte Commodore besturingste- 


en vergissingen en dus vervan- 
gen wij ze door middel van dit 
programma door character- 
strings. Het programma wordt 
besproken in de ’Handleiding 
bij de Listings’ (Commodore 
Dossier pagina 37) en naar aan- 
leiding daarvan vragen verschil- 


wel, hoewel we nog even duide- 
lijk willen stellen dat inzendin- 
gen van lezers best voorzien 
mogen zijn van besturingste- 
kens, die halen we er wel uit. 
Het programma kan ook wor- 
den gebruikt voor het prepare- 
ren van listings die moeten wor- 


Commodore niet op het reper- 


toire heeft. 

Het programma — dat om tech- 
nische redenen niet van een con- 
trolegetal is voorzien — is erg 
eenvoudig te gebruiken omdat 
het zijn instructies steeds in 
beeld brengt. 


den uitgedraaid op een printer 
die de besturingstekens van 


lende lezers of we het niet wil- 
len publiceren. Dat willen we 


kens. Die symbolen zijn vaak de 
oorzaak van onduidelijkheden 


10 rem xxx list converter voor chm 64 
20 poke53280,0:poke53281,0:printchrs$(8):gosub640 

30 gosub650:gosub710 

40 printchr$(17)3 

50 printchr$(155)"programmanaam ("“chr$(129)"$=directory) “chr$(30);: inputprs 
60 ifprs="S$"thengosubi080:goto30 

70 openit,8,15, O:i- 

80 open3,8,3,°0:"+prs 

90 gosub/780:iffo=ithen30 

100 openz,8,Z, O:l"+prst+"l,p,w" 
110 iffo=2thenclose2:gotol00 
120 gosub650: printchrs(17)chr$(17)chrs(17)chr$(153)" dit Kan even duren.. 
130 get#3,aS$:print#2,a$;:get#3,a$:print#2,a$; 

140 1i=0 

150 aS="":get#3,a$:re=st 

160 ifli=Othenli=i:goto230 

170 ifli=itthenli=2:goto230 

180 ifli=2thenl1=3:lo=asc(a$+chr$(0)): a 

190 ifli<>3then220 

200 li=4:hi=ascCa$tchr$(0)):printchrs(19);:fort=itolO:print:next 

210 printchrs( 150. lothix25¢6:goto230 

220 gosub460 

230 ifasclaf+chr$ (0))=Othena$=chrs$(0) 

240 ifna= Othenpr int#2,a%5 

250 na=0 

260 ifre=Othen150 

270 gosub780:close3:close2:closel 

280 gosub650: printchrs(17)chr$(17)chr$(158)"conversie gereed;”* chr$(153)" geen er 
rors.” : 
290 printchrs(17)chr$(i50)"°U kunt nu 


sgosub780:iffo=ithen30 


“chr$(154)"L"tprs+"] “chr$(150)"laden” 
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RoZoT "Li tol loli ioe lok ee 


300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
200 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 





ae 





[SUMG 
print"en uitprinten.” 


printchrs(17)chr$(17>chr$(30) 

printchr$(18)"fl°chr$(146)"° laden van ["+tprs+")" 
printchrs(18)*f7"chr$(146)" nog een programma converteren”™ 
printchr$(18)"f£8"chr$(146)" stoppen" 

pokei98,0 
getqs:ifqs<>chr$( 133) andqs<>chr$ (136 andqs<>chr$(140)then360 
ifqs=chr$(136)then30 

ifqé=chr$(140)thenprint"zeker weten? (j/n)d":goto4d00 

goto4d30 

pokel98,0 

getqs:ifqs<>"j°"andqs<>"n”then410 

printchrs(147):sys64760 

printchr$(147)"load “+chr$(34)+"["+pr$+"]"+chrs(34)+",8" 

poke 631,19:poke632,13:poke198,2 

end 

rem subroutine die tekens afhandelt 
ifascCast+chrs(0))=Othenf1=0:f2=0:1i=0: ab=chr$co): return 

ioe ena t oe) teenie £3+1:goto600 

£3=0 

iffi=Othenreturn 

x=l 

ifasc(a$)<>0(x)then540 

aS=chr$(199)+"C"4+right$(str$Co(x)), Clen(str$(o(x))))- 1)+")":gotoS60 
x=xti:ifx<35then520 

goto580 

{£f2=Othenreturn 

print#2,chr$(34)3:£2=0:return 

iff2<>Othenreturn 

print#2,chr¢$(34)3:f2=l:return 

iff3=2thenpr int#2,chr$(34)i3chr$(34)3 :na=1:f1=0:f2=0:f3=O:na=1:return 
iffil=Othenfl=1:f£2=O:na=l:return 

iff2=ithenfi=0:f2=O:return 

fi=O:na=i:return 
dimo(34):forx=1to34:readxx:o(x)=xx:next:f1=O:rf=0:f1=0:£2-0:f3=O:return 
poke53272,23 

printchr$(147); 

printchr$(158)chr$C17)chr$(17)” xk*x*x LISTING-CONVERTER V 1.1 xxx 
print chr#(154)chr#(17)" (cc) 1984 “chr$(129)"Roelf Sluman” 

return 

stop : 

printchr$(17)chr$(17)chr$(30)"Plaats diskette met het te converteren 
print"“programma in de disk drive” 
printchr$(17)chr#(17)chr$(150)"druk daarna. ep “chr$(18)"RETURN"chr$(146) 
poke!98,0 

getq$s: ifq¢=""then750 

ifq#s<>chrs(13)then750 

return 

gosubi070:ifel=Othenfo=O:return 

printchrs$(154) 

ife1l=63theni040 

ifel=25then930 

ifel=72then960 

ifel=74then1000 

ifel=62then1020 





850 : 


860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
$90 


printchr#(5)"sorry,... aktie afgebroken 
print“disk error“el 
printe2$%:printe3,e4:close3:close2:lclosel:fo=1l 
printchr$(i7)chr¢(150)"druk op "chr#(18) “RETURN® :pokei98,0 
getqs:ifqs=""then900 

ifq$<>chr$(€13)then900 

return 

printchr$(17)"schijf is beschermd tegen schrijven;” 
print"verwljder plakkertje s.v.p.” 

gotos60 

print"“diskette is vol; plaats het te” 

print“listen programma op een andere schijf” 
print"en probeer opnieuw.” 

gotos60 


1000 print"“schijf niet op correcte wijze geplaatst” 


1010 
1020 


goto860 
print"gevraagde programma staat niet” 


1030 print”’op deze diskette":goto860 

1040 printchr$(17)chr¢(5)°oude conversie-file wordt gewist...* 
1050 print#1i,"s:("+pr¢+"1" 

1060 fo=2:return 

1070 input#i,el,e2$,e3,e4:return 





1080 






openi5,8,15,"i":openi,8,2,"$" 
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iS MGS VAN TCZE: 


1090 forx=itoldi:get#1,a$:next 

1100 t$(O)="del”:t$C1)="seq":t$(2)="prg":t$C3)="usr":t$(4)="rel” 
1110 j=17:gosub1370 

1120 n$=b$ 

1130 j=2 

1140 gosub1370 

1150 is=bs 

1160 get#l,as 

1170 j=2 

1180 gosubi370 

1190 oS=bs 

1200 forl=1to088 

1210 get#1,as 

1220 next 

1280 printchr$(147)chr$(158)"“disk-naam:"n$,"id:"i$,chr$(154)"os:"o$ 
1240 printchrs(5)"lengte", “type”, “naam"chr$(30) 

1250 forp=1to8 

1260 get#1,t%,a%,a% 

1270 ift$=""thent$=chr$(128) 

1280 4=15 

1290 gosub1370 

1300 n$=b$s 

1310 get#1,a%,a$,a$,a%,a%,a$,a%,a$,a$,1$,h$ 

1320 l=asc(1$+chr$(0))+256xasc(h$tchr$(0)):ifl=Othen1360 

1330 ifstthenclosel:closei5:goto1410 

1340 printl,t$(asc(t$)-128),n$ 

1350 ifp<8thenget#i,a$,a$ 

1360 nextp:gotol250 : 

1370 bs="":forl=Otoj:get#1,a$ 

1380 ifa$<>chr$(96)theni fas<>chr$( 160) thenb$=bs+as 

1390 next 

1400 return : 

1410 printchr$(17)chr$(150)° @ruk op “chr$(18)"°RETURN* 
1420 poke198,0 

1430 getqs:ifq$=""then1430 

1440 ifqs=chr$(13)thenreturn 

1450 goto1430 

1460 data 5,17,18,19,20,28,29,30,31,129,133,134,135,136,137,138,139,140,144,145 
1470 data 146,147,148,149,150,151,152,153, 154,155,156, 157,158,159 
ready. 

LOTTO 

De heer Barendrecht uit Maas- dat de liefhebbers kan helpen formulier. De heer Barendrecht gramma niet het gewenste resul- 
dam stuurde een programmaatje bij het invullen van het lotto- is niet aansprakelijk als het pro- taat oplevert. 
LOTTO 

10 printchrs$(147)chr$(150)tab(16)3<shift>/<spatie>23 

20 printchr$(i8)" lotto “<shift>/<spatie>0e 

30 rem voor het printen van de titel<shift>/<spatie>8e 


40 p 
50 r 


rint:print:printchrs(5)<shift>/<spatie>42 
em voor witte tekens<shift>/<spatie>ed 


60 print“hoeveel kolommen wilt u”s<shift>/<spatie>b9 


70 i 
(80 r 
90 f 
100 
110 
126 
130 
‘140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


nputk:print<shift>/<spatie>2b 

em invoeren aantal kolommen<shift>/<spatie>c6 
ort=ito k<shift>/<spatiere3 

rem voor aantal kolommen<shift>/<spatie>df4 
forn=ito6<shift>/<spatie>bo 

rem voor zes getallen<shift>)/<spatie>da3 
g(n)=int(rnd(0)*4it1)<shift>/<spatie>34 

reth aantal getallen van 1 tot 41<shift>/<spatied2a 
form=iton<shift>/<spatie>33 
ifg(n)=g(moandn<>mtheni30<shift>/<spatiedal 

rem geem dubbele getallen<shift>/<spatie>6e 
nextminextn<shift>/<spatie>8d 

forn=Otod: form=ito5-n<shift>/<spatie>62 
lfg(md<g(mtl) then220<shift>/<spatie>rfc 
a=g(mt1l)sqg(mtld=gl(m):g(m)=a<shift>/<spatie>60 
nextm:nextnishift>/<spatie>deS 

rem voor het sorteren van de getallen<shift?/<spatie>?76 
forn=1to6(shift>/<Cspatie>d24 : 
printtab(3+44n)q(ndi<shift>/<spatie>ta 

rem print het getal<shift>/<spatie>d3 
nextniprintiprint<shift>/<spatie>ds 
nextt:printchrs$(158)3<shift>/<spatie>97 

rem voor de volgende Kolom<shift>/<spatie>f5 

print “gebruik voor een volgende “;<shift>/<spatie>82 
print"serie toets fi"<shift>/<spatie>be 

getgs: ifgs<>chré( 133) then330<shift>/<spatie>39 
yun<shift>/<spatie>ddf 
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~COMMODO 


dichtst bij die waardeligt. 

Het programma REKENEN van 
dezelfde auteur oefent de hersens 
met hoofdrekenen. De computer 
genereert een reeks van willekeurig 
gekozen getallen en een willekeurig 
getal tussen de 1000 en de 4000. 
Met optellen, aftrekken, verme- 
nigvuldigen en delen van de eerste 
reeks getallen dient men zo dicht 
mogelijk in de buurt van het tweede 
getal te komen. De Vic geeft na elke 
bewerking het percentage, en de 
bedoeling is natuurlijk om dicht bij 
de 100% te komen. 


kundige functies te verwerken 
krijgen en snel de nulpunten (of 
wortels) van deze functies wen- 
sen te kennen. Een onoverko- 
melijk nadeel van het program- 
ma is dat je telkens de betref- 
fende functie in het programma 
zelf moet intikken, de Vic 
neemt namelijk geen functies op 
bij een input-instructie. Als 
voorbeeld heeft Christiaan een 
sinus-functie genomen (regel 
20). De computer geeft ecerst 
een willekeurige waarde X1 en 
geeft dan het nulpunt dat het 


FUNCTIES EN REKENEN 

Verheugend veel inzendingen gegaan om dat programma voor 
voor de Vic-20 komen op de re- _ elkaar te krijgen. De heren zijn 
dactie binnen. Vic-20 bezitters in het laatste test-stadium, dus 
zijn blijkbaar van opvatting dat dat kan niet al te lang meer du- 
ze zichzelf maar moeten helpen _ ren. In dit nummer zijn de Vic- 
als niemand anders het doet. listings helaas dus nog zonder. 
Overigens hebben Vic-20 bezit- | Toch willen we ze u niet ont- 
ters nog steeds een controlepro- houden. 

gramma van ons tegoed. Nuen Het programma FUNCTIES 
dan belt iemand op om te vra- __ werd ingezonden door Christi- 
gen waar het blijft. Inmiddels aan De Clercq uit Lovendegem 
kunnen we melden dat de heer __ in Belgié. Het programma is 
Van Lith uit Ingen met onze vooral bestemd, schrijft hij, 
programma-redactie in de slag is voor studenten die allerlei wis- 


FUNKTIES OP VIC 20 620 forn=2to20step2 print:print:print"100 %bravo!!!° 


10 
20 
30 
40 
50 
60 
70 
80 
90 


inputxl 
deffnaCx)=sin(x) 
y=fnatx1) 

dx=10e-6 
fx=(Cfna(xiltdx)-y)/dx 
Zxay/fx 

xO=x1-zx 
printxO:x1l=x0 
goto30 


100 end 


REKENEN VIC 20 


1 printchr$(5) 

2 printchr$ (147) 

3 poke 36879,8 

4 forx=I[tol2:print:next 
5 v=2:p=0:1=2 


10 
20 
30 
40 
50 


dima20) 
dimce(20) 
forn=1to20 
a(n)d=int(rnd¢(1)*9+1) 
nextn 
forn=1to020 
c(n)=aCn) +48 
z=atl) 
nextn 
x=int(rnd¢1>}*3000+1000) 
forn=1to20 
poke7680+n,99 
poke7768+n, 100 
nextn 
poke7680,79 
poke7701,80 
poke7768,76 
poke7789,122 
forn=ito4d 
poke7812+n,99 
poke7828in,99 
poke7856+n,100 
poke7872+n,100 
nextn 
poke7812,79 
poke7817,80 
poke7856,76 
poke7861,122 
poke7828,79 
poke7833,80 
poke7872,76 
z=a(i) 
poke7877,122 
forn=Otod4stepa2 
poke7702tn, 101 
poke77234n,103 
nextn 
poke7834,101 
poke7839, 103 
poke7850, 101 
poke7855,103 
poke7846, 37 


630 
650 
660 
670 
671 
675 
676 
677 
678 
679 
680 
681 
682 
683 
697 
700 
702 
705 
710 
715 
v7 
719 
720 
725 
730 
1000 
1020 
1040 
1050 
1055 
1056 
1060 
1070 
1080 
1100 
1110 
1115 
1120 
2000 
2020 
2040 
2050 
2055 
2056 
2060 
2070 
2080 
2100 
2110 
2115 
2120 
3000 
3020 
3040 
3050 
3055 
3056 
3060 
3070 
3080 
3100 
3110 
S115 
3120 
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poke7701+n,c(n/2) 
nextn 
forn=22tod0step2 
poke7725tn,c(n/2) 
nextn 
x$=str#(x) 
xl$=mids(x$,2,1) 
x2¢=m1d¢Cx$,3,1) 
E3S=m1d$(x$,4,1) 
x4$=right$(xs,1) 
poke7835,asc(x1$) 
poke7836,asc(x2$) 
poke7837,asc(x3$) 
poke7838,asc (x44) 
poke7834,101 
ifp=100then5000 
poke7900,43 
poke7901,44 
poke7902, 45 
poke7903,44 
poke7904, 42 
poke7906,63 
inputa$s : 
ifas="-"“then2000 
ifa$="*"then3000 
ifv=21then6000 
Z=ataCv) 
p=(€zx100)/x 
ip=int(p) 
gosub9051 
gosub9056 
ifl=22thenl=46 
ifl=64then6000 
poke7702+1,43 
1=14+2 
vevel 
printchrs(145)chrs (145) 
goto700 
ifv=21then6000 
Z=z-aCv) 
p=(zx100)/x 
ip=int(p) 
gosub9051 
gosub9056 
ifl=22thenl=46 
ifl=64then6000 
poke7702+1,45 
1=1+2 
vevtl 
printchrs(145)chr$ (145) 
goto700 
ifv=21then6000 
Z=zZkeatv) 
p=(z*100)/x 
ip=int(p) 
gosub9051 
gosub9056 
ifl=22thenl=46° 
ifl=64then6000 
poke7702+1,86 
1=1+2 
vevel . 
printchr$(145)chr¢ (145) 
goto700 





spoke 36879,110 
forp=Otol00:nextp 
poke 36879,8 : 

end 
print:print:print"procent="3p3"%" 
end 

print"veel te hoog!!!":end 
ipS=str$Cip) 
ils=midsCip$,2,1) 
poke7843,asc(il$) 
return 

ipS=str$Cip) 
ilS=mid$Cip$,2,1) 
i2%=midsCips,3,1) 
poke7842,ascC(il$) 
poke7843,asc(i2s) 
poke7844,32 

return 

ips=str$Cip) 
i1lS=midsCips,2,1) 
i2$=mid$Cips,3,1) 
i3¢=rightsCips, 1) 
poke7842,asc(il$) 
poke7843,asc(i28) 
poke7844,asc(i3$) 
return 

z2$=str$(z> 
ziS=mid$(z$,2,1) 
poke785i,asc(z1$)> 
return 

zS=strs(z) 
zis=mids(zs,2,1) 
z28=right$ (zs, 1) 
poke785i,asc (zis) 
poke7852,asc(z28) 
return 

z$=str8$(z) 
zis=mid$(z$,2,1) 
z2s=mids(z$,3,1) 
zZ38=rights$(zs,1) 
poke7851i,asc(z1$) 
poke7852,asc(z2s) 
poke7853,asc(z358) 
return 

zS=str$(z) 
zi$S=mid$(z$,2,1) 
z2$=mid$(z$,3,1) 
z3$=mid$(zs,4,1) 
z48=right$(zs,1) 
poke785l,asc(z1$) 
poke7852,asc(z2s) 
poke7853,asc(z3$8) 
poke7854,asc(z4$) 
return 

if ip<10thengosub7000 
if ip>1!0and ip<100thengosub7500 
lf ip>?99andip<1000thengosub7700 
1£1p>1000then6500 
return 
ifa<lOthengosub8000 
1fz>9andz<l00thengosub8500 
Lf£z>1000andz< 10000thengosub8s800 
i£fz>9999then6500 
return 
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GROTE LETTERS OP DE VIC 

Extra grote letters hebben blijk- _ wijzigingen worden aange- 

baar een grote aantrekkings- bracht, 
kracht op Vic-bezitters. Ver- In regel 1270: IFPEEK(36869) 
schillende lezers stuurden ons = 194 

programma’s op die dergelijke —_In regel 1300: PO = PEEK 
letters kunnen maken. We (4338 + H) : 
moesten dus kiezen en plaatsen Het programma kent een beper- 
het programma van Jurgen De- king van 10 letters, daar elke 
cloedt, dat de extra grote letters letter 8 posities in beslag neemt 


“getas:ifas="j"then iils=chrs¢(18)* 
"chrs€146):i2s=" * 
ifas="n"then iis=" 
*chrs(146) 
ifilS=""then1140 
print:print:print:print 
print’tekst : “chr$(146)"max. 
print:print:print 
k1l=0 : : 
getzS:ifzs=""theni210 
ifasctz$)>132andasc(z$)<1i4itheni210 
ifasc(z$)=130rlen(x$)>=10theni270 


":128=chrs(18)"_ 


10 tek.” 


kan laten afdrukken op een 
MPS-801 matrix-printer. Wan- 
neer zijn programma wordt ge- 
bruikt voor de Vic met 16K uit- 


en er op een MPS-801 slechts 80 
mogelijk printposities zijn. Het 
programma gebruikt 1969 bytes 
van de 3585, hetgeen overeen- 


ifasc(z$)=20thenx$=left$(x$, 
len(x$)-1):printz$3:goto1210 


XS=x$+z2$:printz$s; 
gotol210 


print: ifpeek(36869)=242thenk1=2048 
foru=1to08 
forh=Otolen(x$)-1 


breiding, moeten de volgende komt met 2K. 


GROTE LETTERS 


100 
110 
120 
130 
140 
150 
160 
170 


LO MK KKK KK IKK HK KKK KKK RIK KIKI KIRK 
remx x 
remxafdrukken van grote Karaktersx 
remxop een mps-801 matrix-printerx 
remx * 
remk voor een standaard vic20 * 
remx * 
LO MKKKKKKKKKAKKKKAK KKK ARK AKER KKK KKKK 
180 rem 

190 rem 

1100 openi,4 

1110 print#l!,chr$(15) 

1120 printchrs$(147) 


1130 print "rvs on 2 [j,n]" 


COMMODORE DOSSIER __ 


Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciéle adver- 
tenties en aanbiedingen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 


als gevolg van onduidelijke opgave. 
Een advertentie mag ten hoogste 7 regels van 25 aanslagen 


lang zijn. 


IK BIED HARDWARE AAN 

@ Module voor 64: tapeturbo + disktur- 
bo + toolkit (22 comm.) + mt-monitor 
(26 comm.), autostart, reset, voorgepr. 
fune.teetsen f 67,50. Jan Schuurman, 
Tel, 01803-13150. : 

@ CBM-64 + programma’s + joystick. 
Prijs f 800,-. Tel. 023-376126. 

@ C64 + datarec. + joyst. + diskdrive 
154 + printer GP-100VCE + softw: 
Pascal64 comp.+ textomat + database 


etc. Prijs f 1800,-. Tel. 03475-1448. On- 


geveer half jaar oud, weinig gebruikt. 
@ Atari BO0XL + drive 1050 + 
cass.rec. + boeken + veel software. 


Tel. 078-158171. 

© Commodore 1520 printer-plotter, 3 
maanden oud. Prijs: 4000 Bfr. (f 225,-) 
C. de Clerq, Beekstraat 26, 9920 Loven- 
degem (Belgié), Tel. 091-726861. 

© Commodore C-16, splinternieuw start- 
pakket met rec. handl. en progr. Gewon- 
nen op de HILBO tentoonstelling in mei te 
Mill. Heb zelf C64. Ben Wijnen, Ha- 
vikstraat 31, Mill. Tel. 08859-2380. 

@ ViC-20 + 24k + 5 slotexpansie + 


 datarec. + plusminus 40 progr. 0.a. Su- 


perexpander, Choplitter, Superman, Word- 
craft enz. + uitgebreide documentatie. 
Tel. 02502-8533 (na 16.00 uur). 


po=peek(7922+h) 
es="" 


K=peek(32768tpox8tu-1tkl) 


forl=1to8 
Wwex/2:w%=x/2 


ifwsw%thenesS=i1$te$:goto1380 


eS=i2$tes 
ifw<ithenw%=128 
x=w%:rnextl 
ziS=zistes 
nexth 


print#1,chr$(15)zi$chrs(8):zis="" 


nextu 


print:print:print:print”“nogmaals ? 


[j,n1" 


geta$S:ifas="j“thenrun 


ifas<>"n"then1440 


end 


@ VIC-20 + 16k + Quick 20 in Eprom 
+ 64k + 2 slot moederbord, diverse — 
boeken, Ned. cursus Basic + 2 bandjes, 
veel spel-toolkitsprog. bijv. 40K- 
tekstverw.exb, level ll + casset.1000, 
Tel. 02520-29307. 

@ Te koop C-16 + cass.rec. inclusief 2 


boeken + tijdschriften + enkele program- 


ma’s, prijs f 450,- na 18.00 uur. Tel. 
043-617128. C. Nijpels, Atoomstraat 13, 
Maastricht. 

@ SX64 + 1541 + HRS! printer + 2 
joysticks + turbo/diskloader + veel pro- 
gramma’s, f 3250,-, na 1800 uur. Tel. 
030-445714. 


@ Intellevision spelcomputer met 10 cas- 
settes. Zeer goed beeld en geluid. f 250,- 
_of in te ruilen tegen KTV of RGB-monitor. 


Tel. 04977-2588. 

@ Disk-hulpeartridge (snellader + toolkit 
disk) { 50,-, Viditelinterfacekabel f 40,-. 
Hans Wassink. Tel 055-218456 na 
18.00 uur. 

®@ Seikosha GP 100 VC printer voor 
CBM-64. 10 maanden oud. A. Langk- 
mans, Vooruitgangstraat 2, 1770 Lieder- 
kerke, Brabant (Belgié). 

@ MPS-802 printer + reserve lint + 
stofkap, t.e.a.b. bellen na 18.00 u. B.A. 
Fortuin, Tel. 01828-13367. 
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@ C16-com. + luxe stofkap + ree.+ 
hoes. C16-joystick + joystickinterface + 
3 boeken + veel software o.a. Pacm., 
15,-, tekstv. enz. vrpr. f 500,-. Tel. 
070-852873 na 16.00 uur. 

@ TKA-comm-printer 803 incl. tractor- 
feed vrpr. f 500,- + casetterec. / 50,-. 
€. v. Beek, Woestduinlaan 50, Doorn. Tel. 
03430-13055 (na 18.00 uur). 

@ CBM-64 + cass. + software (0.a. Si- 
mon’s Basic) + boeken (0.2. ref. guide, 
beschrijving Simon’s Basic). Tel. 
045-725052. 

@ VIC-20 + switchable 16K geheuge- 
nuitbreiding. Veel software f 200,-. Tel. 
01650-40104. 


IK BIED SOFTWARE AAN 

@ Commodore 64 programma’s tekstver- 
werking, spel en Pascal-compiler. Kees 
van de Geer, 040-863230 na 18.00 uur. 
Gezocht codrdinaten programma’s voor 
ENC Machines. 

@ C-64 loon- en loonkosten ber.prof. op 
Cassette bruto-netto/netto-bruto, witte ta- 
bel prijs { 29,-. J. Huisman, Lancasterdr. 
12, Dronten. Tel. 03210-5273. Giro 
4929131. 





GEBROEDERLIJK ZEGT NEDERLAND 
VOLMONDIG JA TEGEN DE HR-S. 
































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
zelfs, als u Ze op uw vingers natelt. Ten eerste is het een dot 
matrix printer waar u de afzonderlijke puntjes niet of nauwelijks 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat Zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachekoffer past. Ten vierde is het gewicht maar 1.75 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, 80 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 C, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 30 tekens per 
sekonde en de fluisterstilte onder het printen. Carboncassette voor normaal papier. 

Zoveel kompleetheid in zo’n klein maatje, dat blijkt — 


overal onverdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand j 











adres. Adviesprijs f 695,- ©X. btw. BROTHER INDUSTRIES LTD., NAGOYA/JJAPAN 
DAA) EES op st 
BO N: a Ik wil meer informatie over de HR-5. 

Naam: 

Adres: 

Postcode: ____——s«~Pilaaatts:: 








Opsturen naar: Brother International (Nederland) BV. Postbus 600, 1180 AP Amstelveen. es : 
sr ik a iS in hm a ei i tl 1 Battery powered en netvoeding. 


Brother International (Nederland) BV, 
Zanderij 25-27, 1185 ZM Amstelveen. Telefoon 020-474471* 


Brother Industries Ltd. Nagoya, Japan. 








26 UITBREIDINGSMODULEN VOOR UW 
| COMMODORE 64 


P006 KCS TAPE-QUEEN 64 
AFGELOPEN! die LANGE WACHTTIJDEN, 


P001 KCS TAPE Speedsaver 64. 
Uw HULP bij het programmeren in BASIC! 






BESCHIKBARE kommando’s: voor het lezen en schrijven van DATA-FILES. 
*LO HELP TRACE DELETE COPY RENUMBER x 
+A AUTO FIND - UNNEW DUMP CENTRONICS Vanaf nu schrijft en leest U een bestand met zeer grote 


snelheid naar en van cassette! Een NIEUWE benadering 
van snel cassettewerk en andere manieren van 
gegevensopslag wordt u aangeboden met de KCS TAPE-QUEEN 64 module. 


- 26 BASIC-KEYWOORDEN. — TAPE-QUEEN 64 is de snelste op het gebied van DATA-overdracht! 
- Parallel/cntronics printer software. — Zeer snellezenenschrijven van DATA-FILES in het ?GEHEUGEN” (?!). Eenvoudig 


— 10x Snelier laden, saven, verifyen en appenden met cassette te gebruiken voor de overdracht van gegevens tussen TWEE na elkaar uit te 
— Verkorte DISK-DOS + Copy-Otility. SB voeren BASIC programma’s. Mogelijkheid om TWEE bestanden tegelijkertijd in de 


*"SA* HEX: APPEND KEYOFF SKEY STOPLIST 
"VER DEC: DEVICE REPEAT KILL 
-— 16 Voorgeprogrammeerde FUNKTIE-TOETSEN (1) 





computer op te slaan, waarvan 1 bestand BUITEN de BASIC-ruimte wordt 
opgesiagen (UNIEK!). 

— Ruim 10 maal SNELLER laden, saven en verifyen van BASIC- en MACHINETAAL 
programma’s. Kan ook vanuit programma’s, omdat we NIEUWE devices 
benutten. (voorbeeld: LOAD ”naam”, 7 of LOAD ”naam”,14). 

— Een TAPE-DIRECTORY system, om uw programma’s/files op te slaan en deze 
ook zonder bandteller weer zeer snel terug te vinden. (Ideaal voor SCHOLEN!!) 

— Achtvoorgeprogrammeerde funktie-toetsen, alsmede de mogelijkheid om ze 


P002 KCS Speedmon 64. 

SPEEDMON 64 is een uitgebreide 

Machinetaalmonitor/Assembler. 

Wilt u MACHINETAAL programmeren, dan is deze module onmisbaar. 
BESCHIKBARE kommando’s: 

ASCII TEKST ASSEMBLER DECIMAAL naar HEX HEX naar DECIMAAL 





ASSEMBLER BREAK SET COMPARE MEMORY : i 

DISASSEMBLER EXAMINE MEMORY FILL MEMORY zelf eenvoudig te herdefiniéren. (Maatwerk). 

GO RUN HUNT MEMORY INTERROGATE MEMORY -— SUPER-COPY, waarmee het mogelijk is programma’s (max 45K) te kopiéren. 
— Zeer mooie PRINTER-routine! 

JUMP NAAR SUBROUTINE LOAD FROM DEVICE MASK SET 4 “5 

NEW LOCATE OUTPUT ENABLE bere ENABLE U kunt nu op de USER-PORT aangesloten CENTRONICS- en de SERIELE printers 

QUICK TRACE REGISTER DISPLAY SAVE naar DEVICE op de normale manier vanuit BASIC aansturen. (Eventueel samen). 

TRANSFER MEMORY VERIEY MEMORY WALK MODE Hierbij worden CONTROL- en GRAFISCHE characters, als u dat wenst vertaald in 

EXIT MONITOR VERKORTE DISK-DOS decimale getallen. Eindelijk een ”Duidelijke” BASIC-listing op uw printer! 

HOE SNEL IS TAPE-QUEEN? 

P003 KCS TAPE Speedsaver 64 COMBI. In onderstaande matrix kunt u zien hoelang het duurt om een DATA-file weg te 

Dit is een Combinatie van Speedmon 64 en schrijven of in te lezen. In de matrix is aangegeven: : 

TAPE Speedsaver 64 op een module. a. De grootte van de file uitgedrukt in KBytes. 

Nadere specificaties vindt u bij de modulen P0O1 en PO02. b. De wijze waarop de file is weggeschreven of ingelezen. 


c. De tijd uitgedrukt in seconden (afgerond op gehele getallen). 


P004 KCS DISK Speedloader 64 De tijd is gemeten na het openen van de file. 

EINDELIJKis hij er de ideale uitbreidings- module voor Commodore TAPE-QUEEN gebruikt een lange ’Leader’ (is betrouwbaarder). 

64 bezitters die werken met een CBM DISKDRIVE type 1541: 

se op adbeast ed caged Data-file KGS Normaal met Normaal met 





-5 a6 maal SNELLER (!!!) programma’s laden vanaf disk.. 








SUPERTOOLKIT kommando’s: Grootte: oe Recorder Diskdrive 

HELP TRACE DELETE COPY RENUMBER 

AUTO FIND UNNEW DUMP 

BEEP COLOR KEYOFF SKEY /6 a aan oe’ a nae 
' 4K 39 sec 191 sec 61 sec 

DEC: HEX: REPEAT KILL 

— 16 Voorgeprogrammeerde FUNKTIE-TOETSEN (!) BE 7Y SEC e8aiSeG Ta0.see 

‘ 16K 152 sec 765 sec 239 sec 


— 26 BASIC-KEYWOORDEN en Verkorte DISK-DOS. 








P005 KCS DISK Speedioader 64 COMBI. TAPE-QUEEN is dus de snelste op het gebied van DATA-files!!! 


Dit is een combinatie van Speedmon 64 en 
DISK Speedioader 64 op een module. 
Nadere specificaties vindt u bij de modulen PO02 en P004. 


K001 KCS Centronics Printerkabel. 
M.b.v. deze kabel kunt u de meeste parallel/centronics 








K002 KCS Moduulkastje. 


Kunststof behuizing, geschikt voor ALLE OUDERE KCS modulen! Uitsparingen 
voor Led en schakelaars aanwezig. 


printers aansturen. (O.a. Epson, STAR, AVT, CP-80 enz....) 


Voor alle KCS Modulen geldt: 

* Er wordt geen Basic geheugen in beslag genomen. 
* Uitgebreide nederlandse handleiding. 

x Volledig getest. a 
* Gebruiksvriendelijk d.m.v. een help menu op het scherm. OOK IN BELGIE VERKRIJGBAAR!!! 

Informatie en DEALER-aanvragen bij: 

CONNECTION N.V. Tabakvest 120 - 2000 ANTWERPEN 

Tel.: 03-225.22.26/28. Voor particulieren dealerlijst beschikbaar. 


ONZE PRODUKTEN ZIJN VERKRIUGBAAR Blu: 
DE MEESTE COMMODORE-DEALERS. 





* Voorzien van RESET, AAN/UIT schakelaar, Indicatie Led en 
kunststof behuizing!!! 





* Wijzigingen voorbehouden 








Heeft u geen dealer in uw omgeving, dan kunt u ook bestellen door overmaking van het bedrag 
plus f 5,- verzendkosten of onder rembours. Bank: Amro 44.08.04.558. Postgiro: 3793232 
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3315 CW Dordrecht 


free 
i | _! Li Telefoon 078-210181 





ommodore Dossier roept zijn lezers op mee 

te doen aan een voor Nederland unieke 

verkiezing van het beste Commodore 
programma in het jaar 1985. U als lezer van 
Commodore Dossier bent als geen ander op de 
hoogte. Of dit programma nu kan worden gebruikt 
voor hobby dan wel zakelijke doeleinden, voor 
administratieve dan wel reken- en ontwerp- 
werkzaamheden, laat uw stem horen en draag uw 
favoriete software naar voren. Aan de hand van uw 
nominatie zal een deskundige jury het Commodore 
programma selecteren. Tijdens een feestelijke 
bijeenkomst zal op woensdagavond 9 oktober de 
naam van het winnende programma bekend worden 
gemaakt. Lezers, die deelnemen aan deze verkiezing, 
maken kans op een gratis homecomputer en een 
uitnodiging voor de feestelijke uitreiking. 


Voor iedereen een 
microcomputer? 


e ontwikkelingen op het terrein 
van de elektronica hebben een 
computer tot een betaalbaar 
‘goed’ gemaakt. Niet alleen 
bedrijven kunnen zich veroor- 
loven er een aan te schaffen, 
ook voor particulieren is er hetzij voor 
zakelijke hetzij voor hobby doeleinden een 
computersysteem beschikbaar. Zoals U 
ongetwijfeld reeds zelf hebt ervaren hangt 
het toepassingsnut van een micro- 
computer nauw samen met de kwaliteit 
van de verkrijgbare programmatuur. Het 
aanbod van deze software produkten met 
name voor de Commodore homecomputer 





is in de afgelopen jaren enorm toegenomen. 


De praktijk leert ons, dat produkten niet 
altijd uitwisselbaar zijn. De door een 
bepaald programma aangemaakte 


bestanden zijn niet gemakkelijk of 
helemaal niet te gebruiken in een ander 
programma. Bovendien bestaan er tussen 
de diverse leverbare software-produkten 
nogal wat verschillen in kwaliteit. 


De VNU, uitgever van Commodore Dossier 
en andere toonaangevende (computer) 
tijdschriften, wil de verschillen tussen de 
diverse aanbiedingen van microcomputer- 
produkten duidelijk naar voren laten 
komen. Daarvoor zal er een verkiezing 
worden georganiseerd, waarbij in 
verschillende categorieén een 
Microcomputer-Trofee aan een bepaalde 
microcomputer of softwareprodukt zal 
worden uitgereikt. De lezers van de diverse 
VNU tijdschriften hebben de belangrijkste 
stem bij deze verkiezingen. Zij bepalen 
voor de categorie van hun blad, welk 
produkt in aanmerking komt voor de 
Trofee. Een onafhankelijke deskundige 
jury zal aan de hand van de ingezonden 
nominaties het winnende produkt selecteren. 





Paminnasiow Piaachir a 
programma van het jaar 


ommodore Dossier, het 
leidende tijdschrift voor de 
Commodore-gebruiker in 
Nederland, stelt een Trofee 
beschikbaar voor het beste 
Commodore-programma van 
het jaar 1985. Hiervoor komen in 
aanmerking programma’s, die: 

a - gebruikt kunnen worden in combinatie 
met een Commodore homecomputer; 





NEDERLANDSE M 
TROFE 
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voor Commodore- 


b- nuttig en/of praktisch zijn; 
c - algemeen verkrijgbaar zijn; 
d -van Nederlandse oorsprong zijn; 


Toelichting voor punt b: het uitverkoren 
programma mag praktisch en/of nuttig 

zijn voor de gewone gebruiker of voor de 
Commodore-programmeur. Dus niet alleen 
spreadsheets, tekstverwerkers, Viditel- 


komen in aanmerking, maar bijvoorbeeld 
ook sprite-editors, monitors en dergelijke. 
Toelichting voor punt c: algemeen 
verkrijgbaar wil zeggen dat een programma 
ofwel commercieel in de handel moet zijn, 
ofwel gepubliceerd is in een van de 
tijdschriften of door een van de 
gebruikersgroepen. 

Verder hanteert de jury nog een aantal 
verfijnde criteria als bijvoorbeeld: 
toegankelijkheid van een programma 
(gebruiksaanwijzingen), prijs, originaliteit 


en bruikbaarheid. 


Stem mee voor de 
Commodore Dossier- 


Trofee 


ommodore Dossier lezers, die 
op grond van de genoemde 
criteria, een kandidaat voor de 
Trofee van het beste 
Commodore programma van 
1985 willen voordragen, 
kunnen dat doen door onderstaande bon 
in te vullen. Deze moet voor 1 september 
1985 worden gestuurd naar: Nederlandse 
Microcomputer-Trofee 1985, 
Antwoordnummer 16037, 

1000 SE Amsterdam. 





Onder alle inzenders van de bon zullen tien 
homecomputers worden verloot. Indien 
Uw inzending als Trofee-winnaar in de 
categorie van Commodore Dossier wordt 
geselecteerd krijgt U ook nog eens een 
aardige attentie. Verder maakt U door 
deelname kans te worden uitgenodigd voor 
de feestavond, waarop de winnaars van de 
Nederlandse Microcomputer-Trofee 1985 
bekend worden gemaakt. 









PERSONAL 
COMPUTER 


MAGAZINE 


SHOW 


1985 


IIT/M [3 OKTOBER 1985 
10.00-IZ00UUR 
JAARBEURS - UTRECHT 


De personal computer: onbekend 
maakt onbemind. Ze moeten dus uit 
de sfeer van de vakspecialisten 
komen. Voor elke beurs en voor elke 
toepassing is er een microcomputer. 
Dat wordt aangetoond tijdens de 
Personal Computer Magazine Show, 
die van 11 tot en met 13 oktober 1985 
in de Jaarbeurs in Utrecht zal worden 
gehouden. Een breed opgezet 
evenement met allerlei manifestaties 
toont aan een gevariéerd publiek alle 
mogelijkheden van de microcomputer. 
De zakelijke bezoeker komt er zich 
griénteren op systemen voor 
administratieve dan wel andere 
professionele toepassingen. De overige 
gezinsleden behoeft hij echter niet 
thuis te laten, want voor hun zijn er 
de microcomputers voor privé- en 
educatieve doeleinden. De uitreiking 
van de Nederlandse Microcomputer- 
Trofeeén 1985 vindt plaats aan de 
vooravond van de Show. De uitslag 
van de verkiezingen vindt plaats op 
9 oktober, dus vlak voor de 
PCM-Show. Deze uitslag biedt de 
bezoekers een leidraad bij het 
maken van een keuze voor een 
bepaald merk microcomputer of 
microcomputerprogramma. 












































B Het beste Commodore-programma van 1985 is: a 
i Gi 
Gj | 
— Motivatie: _ i 
i i 
i | 
g Ei 
i i 
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i Naam: a 
B Adres: 

: Postcode/Woonplaats: 
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programma’s en educatieve programma’s 
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MAGAZINE 
HOW 


IIT/M 13 OKTOBER 1985 
10.00-IZ00UUR 
JAARBEURS - UTRECHT 


Op deze veelzijdige microcomputer tentoonstelling vindt u veel 
van uw gading. De allernieuwste ontwikkeling op hard- en 
software gebied worden u op de PCM-Show geboden. 
Maar er is meer.....! 








Een aantal exposanten organiseren wedstrijden waaraan u kunt 
meedoen, met leuke en nuttige prijzen. Verder kunt u zelf achter het 
toetsenbord plaatsnemen tijdens vele demonstraties en korte seminars 
die er voor de bezoekers worden georganiseerd. Een waar genot voor 
de echte micro liefhebber! 


Attentie: Uw lijfblad Commodore Dossier biedt u aan om voor de helft 
van de toegangsprijs de PCM Show te bezoeken. In Commodore Dossier 
nr. 3 (verschijnt rond 20 augustus a.s.) treft u een reductiebon aan. 








@ Assem. Basic assembler en Basic te- 
gelijk te gebruiken; programma is alleen 
op cass. Ik stuur ook een gebruiksaanwij- 
zing. Informatie: J.P. Visser, Rijksstrwg. 
12a, 9804 PO Noordhoorn. 

@ Simon’s Basic voor C-64 met handlei- 
ding f 75,-. Schrijf naar: T. Roossien, 
Emmasingel 20, 9726 AL Groningen. Ook 
goede Pascal-compiler f 25,-. 

@ Particulier heeft C-64 programma’s 
voor berekening van belastingen (Belgié), 
te bekomen bij De Maesschalck, Wim 
Haagstraat 1, B-9370 Lebbeke. 


IK BIED HARDWARE 


EN SOFTWARE AAN 

@ SHARP MZ 80A met ingebouwde groe- 
ne monitor + cass.rec. + 5 interpreters 
+ 60 programma’s + boeken. Prijs 

f 1900,-. H. Lachman, Koggestraat 13b, 
3028 VW Rotterdam. Tel: 010-129756. 
® Vic-20 incl. software + boeken + 
tiidschriften + CN 1530 recorder + 
bandjes.. f 450,-. Tel. 02522-14685. 
Commodore Plus/4 incl. 2 boeken + 2 
spelcassettes slechts 3 mnd. oud + da- 
tarecorder: f 725,-. 

@ Te koop: CBM-64 + stofhoes + nu- 
meriek toetsenbord + ingebouwde reset 
4+ Simon’s Basic op cartridge + handlei- 
ding + joystick auto vuur + 50 prg’s 
prijs: f 1100,-. Tel. 080-559450 (Casper). 
@ Commodore 64, 2 joysticks, datasette, 
KCS module, plusminus 200 programma’s, 
Simon’s Basic met handleiding,ete.etc. 
Prijs notk. Ritchie Zebeda, Tel. 
010-658758, Stroveer 16, Rotterdam. 

@ Wegens aanschaf CP/M comp.: 
CBM-64 + 1541 + 1530 + joystick + 
softw.ser + spel. Dit alles in st.v.nieuw, 
geh. onbeschadigd nog in garantietijd. 
vipr. f 1525.-. Zeist, tel: 03404-16383 
na 18.30 uur. 


IK ZOEK HARDWARE 

@ Student zoekt niet te dure C-64. H. 
van. Vroonhoven, Santacker 11, 6932 YC 
Werstervoort. Tel. 08303-15606. 

@ Gevraagd: Nederlandse handleiding 
voor Superbase 64. P. Idben, Postbus 
100, 7590 AC Denekamp. Redelijke ver- 
goeding toegezegd. 

@ Wie heeft voor mij een programma 
waarmee ik een screendump op de 
MPS-802 kan maken? Tegen vergoeding. 
Bel of schrijf: Marcel van Duuren, Akker- 
windestr. 8, Den Haag. Tel. 070-254298. 
@ Ik zoek een programma op tape voor 
het bijhouden van bowlingscores op mijn 
CBM-64 (tegen redelijke verg.). Reacties: 
L. Terlouw, Viiegerzeil 15, 2924 BX 
Krimpen a/d Ussel. 

@ Gezocht: Bank/giro-programma voor 
CBM-64 met Commodore recorder. Gerin- 
ge betaling mogelijk. 

@ CURRAH speech synthesiz. 03 VIC-20 
chatterbox. Schrijf naar D. van Rossen, 
Puccinistr. 41, 3122 HJ Schiedam. 


@ Ik zoek kleurenmonitor en een disk- 
drive. F.v.Beijnen, 0. van Salmstraat 24, 
4811 LB Breda. Tel. 076-147855. 

@ CBM-64, datarec., evt. CBM 1541 dri- 
ve. W. Michels, Tel. 080-225448. 

@ 1541 diskdrive ev. ruilen met moni- 
tors, Sony videorecorder of cass.recorder 
met tapequeen. Tel. 04132-64900 tussen 
1900-2100 uur. 

@ Complete 24K uitbreiding voor mijn 
ViC-20. T. Dissel, Zeqveldstraat 33, 2546 
EA Den Haag. Tel. (na 18.00 uur) 
070-211493. 

@ Ik zoek een MPS 802 printer en Ne- 
derlandse uitleg van de disk 1541 ev. on- 
kosten worden vergoed. S. de Boer, E. 
Murandstraat 47, 8932 GZ Leeuwarden 
(Fr). Tel: 058-137823. 

@ Printer voor CBM-64, diskdrive 1541 
in goede staat. Tom Maes, Haantjestei 
164, 2018 Antwerpen Belgié. Tel. 
031273.60.09, vragen naar Tom. 

@ Een Commodore C-16 en portable mo- 
nitors. t.e.a.b. L.A.J. Vriendts, Servili- 
usstraat 192, 6006 KJ Weert. 

@ Panasonic printer tegen redelijke prijs 
(KX-P 1090). Eventueel ruilen voor tech- 
nisch Lego. Aanbieding en prijsopgave 
naar G.A. Helms, Schorrenkruidlaan 47, 
Philippine. 

@ Gezocht CBM 1541 diskdrive. aanb. + 
prijsopg. Tel. 02990-43084. R. Hendriks, 
Purmerend. 

@ Commodore 64 + 1541 + monitor. 
Tel. 08859-8938. 

@ Zoek 1541 diskdrive; prijs rond 

f 300,-. P.V. Dillen, 05410-15839. Bui- 
tensociéteitstr. 9, 7573 EL Oldenzaal. 

@ Ik zoek een CBM 64 + rec. + hand- 
boek + evt. joystick en software. Bel na 
16.00 uur: tel 05207-1390. Vraag naar 
Matthijs. 


Ik ZOEK SOFTWARE 

@ Beginner zoekt zoveel mogelijk pro- 
gramma’s (geen disk), ook ruilen. Zoek 
ook kontakt met medegebruiker CBM-64 
(omg.Leuven). Grieten D. St. Ermelin- 
disstr. 11, B-3042 Lovensoel Belgié. 

@ Ik zoek programma belastingberekening 
voor Belgié op cassette of listing tegen 
redelijke prijs. Monten Keiput 70-1, 1800 
Vilvoorde (Belgié). Tel. tijdens kantooruren 
02/2434417. 

@ Leraar zoekt educatieve prog. om te 
gebruiken in lager onderwijs (eventueel 
rullen). Boudolf L. Christinastr. 1, Bus 41, 
8400 Oostende Belgié, tel. 059509190. 
@ Wie kan mij helpen aan goede Simon’s 
Basic tekenprogramma’s tegen vergoe- 
ding? Hennie Heeren, Bolakkersstraat 30, 
3583 Overpelt (Belgié) Tel. 011/646216. 
@ VIC-20 software gevr. voor de VIC 
zonder uitbreiding, liefts op cassette. Te- 
gen vergoeding. Mogen ook listings op pa- 
pier zijn. L. de Boer, Mgr. Driessenstr.5, 
Roermond. Tel. 04750-19140. 

@ Wie kan mij helpen aan listing van da- 
tabase en spreadsheet uit nr. 0? 

F. Grondijs, Waalsteen 34, 





2961 XC Wijk bij Duurstede. 

@ Ik zoek software liefst spelleties, op 
cass. Ruilen mogelijk, heb er zelf 33. 
Schriji naar Frans, Postbus 311, 2181 
AH Hillegom of bel na 18 uur 
02520-29480. 


_ © Wie kan mij helpen aan programma’s 


voor de CBM-64 tegen redelijke vergoe- 
ding op cassette? G. Beuker, Maasstraat 
3, Den Helder. 

@ Ik zoek postzegelbestand voor de CBM 
64. Alsook enkele spellen voor CBM 64. 
Reacties naar R. Hendrikx, Vincken- 
hofstraat 112, 5913 EG Venlo. 

@ Wie kan mij helpen aan de listings 
van P€-calc? + PC-base uit comm.Dos- 
sier nr.0 of dit nulnr. A. van Rijn, Water- 
torendruid 21, Nieuwerkerk a/d lJssel. tel. 
01803-18373. 

@ Gevr. software v. Comm. 64. Be- 
langst. v. Ned.talige educ. progr. v. basis- 
school, alsook v. 1090, basicode. M. ten 
Haken, Clausstr. 34, 4561 JD Hulst. 


IK ZOEK HARDWARE EN SOFTWARE 
@ Wie kan mij helpen om een modem ly- 
pe HVA 300 LSI van KH aan te sluiten 
op mijn C-64? Plus software. J. van de 
Steen, Abcoudehoeve 46, 3137 RM 
Viaardingen. 

@ Wie heeft voor mij een goede diskdri- 
ve te koop, en programma’s voor Commo- 
dore 64? Prijsopgave naar C. van de 
Steen, Voorterstr, 133, 6462 SE Kerkrade 
tel. 045-455692. 

@ Ik zoek spelprogr. voor cassette en 
wie heeft een diskdrive 1541? Prijsopga- 
ve naar C. v.d. Steen, Voorterstr. 133, 
6462 SE Kerkrade. Tel. 045-455652. 

@ Wie kan mij helpen aan hardware 
en/of software en/of ervaringen met RTTY 
ontvangst met de CBM-64? Reacties 
graag aan Holger Boswijk, Zwolseweg 36 
te Deventer, tel 05700-19446. 


IK BIED AAN EN ZOEK HARDWARE 
@ Te koop CBS spelcomputer met 3 spe- 
len f 200,-. Te koop gevraagd Datasette 
voor de CBM 64 tegen redelijke prijs. J. 
van Gessel, Postbus 399, 7000 AJ Doe- 
tinchem. 


IK WIL RUILEN 

@ Ik wil software voor de CBM-64 ruilen. 
Stuur lijst naar: J. Kooman, Olmeniaan 4, 
4334 CK Middelburg of bel naar 
01180-27777. Graag Simon's Basic prog. 
@ VIC-20 + 16K + rompacks — schaak 
+ garden wars + 7 cassettes met spel 
+ joystick. Ik vraag CBM-64 + joystick 
en spelen, geef ook vergoeding. W. v.d. 
Meent, Scherpenburglaan 101l, 3523 JX 
Utrecht. 

@ Door de tegenvallende verkopen van 
de Plus/4 is er weinig software te koop 
voor deze machine. Welke Plus/4 bezitter 
beschikt over software en wil ruilen? Tel: 
01608-21849. 
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ADVERTENTIE-EXPLOITATIE 


ADVERTENTIE-SECRETARIAAT 


 AKTIEF 


@ CBM-64 software aangeboden en te- 
vens gevraagd. Viditel programma- 
aansluitingschema interfacekabel program- 
ma op cass. of eprom. Jan Munnik, tel. 
02230-13360. 

© Wie ruilt mijn comm. 802 printer voor 
Margrietwielprinter of ev. schrijfmachine 
met aansl. kabel? Tel. 038-54767 
Zwolle. 

@ CBM-64 software o.a. Easy script, Si- 
mon’s Basic, Vizawrite en spelletjes. Tel. 
02155-15041. 


OVERIGE 

@ Ik bied aan antiek telegraaftoestel (uit 
pim. 1920), geheel compleet in ruil voor 
een goede printer passend op CBM-64. 
H.L. Lammers, tel. 03448-1753. 

@ Gevraagd: handleiding voor Commodore 
64, Ik betaal f 25,- voor goed exemplaar. 
Reacties Rob v.d. Brug, Postbus 439, 
7500 AK Enschede. Ik zoek Commodore 
en/of diskdrive nr. 1541. Tel: 440.66.93, 
Belgié. 

@ Wie kan mij Commodore Dossier nr.0 
bezorgen (eventueel gekopieerd) tegen 
vergoeding? G. Lauwerier, Koutersbaan 
164, 9470 Denderieeuw, Belgié. 

@ Ik zoek contacten met medegebruikers 
C-64 voor uitwisseling ervaring in Delft. 
Schrijf naar: G. Hogendorp, Postbus 603, 
2600 AP Delft. 

@ Tegen redelijke vergoeding wil ik print- 
werk doen voor wie geen printer bezit. J. 
Steffers, Catharinaland 114, 2591 CP Den 
Haag. 


* @ Wie helpt mij aan 0 nummer van Com- 


modore Dossier? $.B. vd Heijden, Asser- 
weg 181, 3053 AE Rotterdam. 

@ Wie heeft de 2 modemprogramma’s uit 
Dossier nr. 2 met goed gevolg ingetyped? 
Ik zou deze dan graag overnemen op tape 
of disk. Bij voorbaat dank! M. v. Slage- 
ren, Langswater 299, 1069 EC Amster- 
dam, tel. 020-192062. 

@ Voor onze lagere school zoeken wij 
educatieve programma’s, alsook allerhan- 
de software hieromtrent. Graag kontakt 
met leraren! Ini: Fr. Hemeleers Korenweg 
19, 2980 Boortmeerbeek (B). 

@ Wie kan bij helpen aan de Ned. be- 
schrijving van het progr. The Manager 
(€-64)? Onkosten worden vergoed! Schrijf 
a.u.b. L. Broekhaert, Viasstr. 33, 4566 
BC Heikant, tel. 01140-1520912331. 


U kunt uw advertentie- 
opdrachten sturen naar: 
CD-MARKT 

t.a.v. Carla de Haan 
redactiesecretariaat 
Rijnsburgstraat 11, 
1059 AT Amsterdam 
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KEUZE 1: Basic 


Van basic tot machinetaal op Commodore 64 


Ondanks de vele boeken die inmiddels over 
deze populaire micro zijn verschenen is er nog 
nooit een boekwerk zo breed en diep ingegaan 
op alle facetten en mogelijkheden. 

Stap voor stap leert u werken met 

® Basic @ Hulptalen (Logo, Pascal, Pilot) 

® Geluid © Grafische mogelijkheden 

® Accessoires @ Machinetaal 

D.m.v. duideliike programmavoorbeelden wordt 
u vertrouwd gemaakt met uw C.64. 

U blijft nu niet meer steken bij een eenvoudig 
spelletje: doorlogische opbouw en professionele 
voorbeelden komt u tot een volledig gebruik 
van uw computer. Niet alleen de computer wordt 
uitgebreid belicht, ook de talrijke accessoires. 


In ieder hoofdstuk zal tekst en uitleg 
aangevuld worden met listings van direkt 
toepasbare subroutines, waardoor het geheel 
logischer wordt door praktische voorbeelden. 
Het enige dat u nodig heeft is een Commodore 
64/128. Dit handboek is zowel geschikt voor 
beginners als voor gevorderden. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan deze pagina. 


Van basic tot machinetaal op C64 
Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 2200, 

prijs f 99,- excl. porto, prijs aanvulling 

f 49,95, verschijning: zomer 1985 


KEUZE 2: Microcomputertechniek 


Microcomputer techniek — uw hobby met toekomst 


Dit superaktuele naslagwerk stelt u alles ter 
beschikking wat u anders moeizaam uit 
tijdschriften en vakliteratuur bij elkaar moet 
zoeken. 


Software voor hobby enberoep . 

U ontvangt o.a. direkt toepasbare programma’s, 
tekstverwerking, adressen- en voorraadbeheer, 
maar ook voor schaken, grafieken, sturen en 
regelen en afstandsbediening, enz. 


Bouwschema’s 

Bouwschema’s gedrukt op plasticfolies geven u 
de mogelijkheid computers met een vaste schiff, 
verwerkingsuitbreidingen, interfaces, 

in- en output-apparatuur zelf te bouwen. 


Het zwaardere werk op C64 


Dit naslagwerk is bedoeld om in duidelijk 
Nederlands de moeilijkste spellen voor de 
Commodore 64 uit te leggen. ledere simulatie of 
spel zal in detail worden besproken, met kleuren- 
afbeeldingen om zelf te controleren. 


In SUBLOGICS FLIGHT SIMULATOR zal bijvoor- 
beeld een volledig viucht met start en landing 
stap voor stap worden besproken. Zo zullen ook 
onder andere NATO COMMANDER, JUMPMAN, 
MINER 2049ER uitgebreid aan bod komen. 


Het basiswerk zal 75 topspellen beschrijven, dat 
vervolgens iedere drie maanden met zo’n 25 
spellen wordt uitgebreid. Door middel van 
verlanglijstjes die ingevuld kunnen worden, 


STEEDS UP TO DATE 


Het is als bij de krant: vandaag nog aktueel, morgen 
“oud nieuws”. Op nauwelijks enig ander terrein gaat 
de ontwikkeling zo snel als in de computer- 


technologie. Regelmatig worden nieuwe en betere 
programma’s ontwikkeld. Reden voor ons om deze 
boeken te voorzien van een aktualiseringsservice. 


Tot wederopzegging ontvangt u circa 4 maal per jaar 
een aanvulling van ca. 120 pagina’s op uw 
naslagwerk, welke u eenvoudig kunt invoegen in het 
basiswerk. U blijft dus beschikken over een boek dat 


NOOIT VEROUDERT. 


Naam: 


Software-paketten 

Opdat u de gebruiksmogelijknheden van uw 
apparatuur volledig kunt benutten, ontvangt u 
uitvoerige informatie omtrent de software- 
pakketten CP/M, MS/DOS, UNIX en OASIS. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan deze pagina. 


Aktuele microcomputertechniek 


Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 2300, 
prijs f 99,- excl. porto, prijs aanvulling 

f 49,95, verschijning: zomer 1985 


KEUZE 3: Spellen op de C64 


zullen we steeds de populairste spellen en 
simulaties opnemen. 


Bestel nu reeds dat unieke naslagwerk, dan 
zenden wij het u direkt na verschijnen toe. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan de pagina. 


Het zwaardere werk op C64 


Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 3400, 
prijs f 99,- excl. porto, prijs aanvulling 

f 49,95, verschijning: zomer 1985 


BESTELCOUPON 


Zend mij tot wederopzegging het aangekruiste 
naslagwerk, waarbij ik mij tevens tot wederop- 
zegging abonneer op uw aktualiserings-service. 


J Na ontvangst betaal ik f 99,- plus porto 
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De neuwe Commodore met standaard 256 Kb geheugen, 
inclusief toetsenbord, dubbel diskette station en inclusief 
een monochrome high-resolution monitor 








De nieuwe Commodore PC is een zeer krachtige 
16 bits computer. Hi werkt met alle bestaande 
MS/DOS software, die over de gehele wereld 
momenteel gebruikt wordt. Daardoor beschikt u 
over honderden programma's die door en door in 
de praktyk werden getoetst. Voor algemene toe- 
passingen zoals tekstverwerking, spreadsheets, 
grafische programma's en data management. 
Maar ook voor specifiek zakelijke toepassingen 
voor velerlei branches, met name in het midden- 
en kleinbedrif. Dat wordt u nu geboden - en nog 
veel meer - voor een prijs die zeker een nieuwe 
standaard wordt. 


5.695,_- 


De nieuwe Commodore PC. Leer hem snel 
kennen. @ INTEL 8088 16 bits processor @ 256 Kb 
RAM intern geheugen, uit te bouwen tot 640 Kb 
@ Dubbel diskette station, 2 x 320/360 Kb @ High- 
resolution monochrome monitor, groen@ ASCIl 
toetsenbord @ Eveneens leverbaar de PC 20 voor 
de prijs van f 9.150,- excl. B-T.W. (diskette station 
| x 360 Kb en | x IO Mb harddisk). Voor meer 
gedetailleerde informatie over de Commodore 
PC kunt u terecht bij de neven- 
staande geautoriseerde 





wy 
Commodore Systeemdealers. TN 
Of vraag documentatie met de | egmamodore 


COUpOn. Daar wordt een mens wijzer van 








Ja, stuur mi de complete 
COU PON documentatie over de nieuwe | 


Commodore PC. 
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| Naam bedrijf 

| Contactpersoon____ 
| Adres, | 
| Postcode/Plaats 

| "TST NU se et | 
| 
| 
| 
| 


Functie pea eR a ey | 


Zend de coupon in een gefrankeerde envelop aan: | 
Commodore BV., Postbus 8192, 1005 AD Amsterdam | 


Handtekening__ 


Toepassing 


Alkmaar Accom BX, Verdronkenoord 28, tel. 
072-122412. Alphen a/d Rijn Hermes H.C.S. 6.V 

Kopened 35, tel. 01720-35079 Amersfoort Acto 
BY, Amsterdamseweg 53, tel. 033-621724. Am- 
sterdam A.K.G. Micro Systemen, Dam 27, tel. 020- 
272266. Bocaraton BY, Schepenbergweg 16, 
tel. 020-970751. Heisterkamp & Partners BV, 
Stadhouderskade 2, tel. 020-163429. Jon Kee 
Groep, Thorn Prikkerstraat 50, tel. 020-170806 
Prompt Computerservice, Prinsengracht 366, tel. 
020-228078. W & L Automatisering, Parnassusweg 
203, tel. 020-798707. Arnhem Bruns Kantoorinst. 
BY, P. Callandweg 56, tel. 085-648550. Assen 
Kuyer Computer Systemen, Kloekhorststraat 8, tel. 
05920-15881.  Beverwijk Dingler © Computer 
Partners, Graaf Janstraat |, tel. 02510-29171. Bode- 
graven MMS BX, Europaweg 3, tel. 01726-11171. 
Bovenkarpsel Complan B.V., Hoofdstraat 156, tel. 
02285-11628. Breda Indelec B.V., Wilhelminastraat 
44, tel. 076- 142333. Doetinchem Egberts Software 
BX., Houtsmastraat 150, tel, 08340-44627. Drie- 
bergen Ing. Bur. A. Kooijman, Hoofdstraat 119, tel. 
03438-21051. Eindhoven L+T International BV, 
Winkelcentrum Woensel 84, tel. 040-41 1425, 
Reyers, Willemstraat 3, tel. 040-522888. Enschede 
Compakt Automatisering, Steenriet 16, tel. 053- 
338585. Gorredijk Incap BV, Leitswel 9, tel. 051 33- 
4400. 's-Gravenhage A.S.O., Frederikstr. 76, tel.070- 
650348. Datacom, Oranjestr. 7, tel. 070 - 655812. 
Info Computercentrum, Noordeinde 101, tel. 070- 
646830. Logic Data, Rijswikseweg 31, tel. 070- 
887328. Groningen Incap B.V., Peizerweg 68, tel. 
O50- 120603. Harderwijk Microsign B.V., Verkeers- 
weg 53, tel. 03410-20004. Ridero Computerhouse, 
Hierdenseweg 16-18, tel. 03410-12984. Hard. 
Giessendam C.A.B. Holland B.V., Peulenstraat 55, 
tel, 01846-6638. Heeswijk Dinther Heisterkamp & 
Partners, Brouwerstraat 15, tel. 04139-2818. Hel- 
mond Automatiserings Advies Centrum, Hortsedijk 
37, tel. 04920-47775. Hendrik Ido Ambacht Troost 
Systemen Centrum, Veersedik 63, tel. 01858- 
17022. Hengelo Heisterkamp & Partners, Willem- 
straat 67, tel. 074-437992. ’s-Hertogenbosch Malm- 
berg Fysica, Beverspijken 5, tel. 073-215565. 
Hilversum Computerworld, Hilvertsweg 99, tel. 
035-1 2633. Hoevelaken System Design Nederland 
BY., Oosterdorpstraat 166, tel. 03495-37100. 
Hoofddorp W & L Automatisering, Concoursbaan 
|b, tel. 02503-31890. Hoorn Compuregio, Nieuwe 
Steen 6, tel. 02290-32624. Kerkrade Comser 
Systems B.V., Old Hickoryplein 4, tel. 045-462665. 
Laren Inter Access Systems B.V., Naarderstraat 66, 
tel. 02153-13000, Maarssenbroek Perce Computers 
BM, Planetenbaan 2, tel. 03465-66066. DeMeern 
Aton Services BV., Strikviertel 33, tel. 03406-3944. 
Middenbeemster Cryoson Hi-Tech, Rijperweg 40, 
tel. 02998-1670. Oegstgeest K.P.D., Rhingeester- 
straatweg 58, tel. 071-171041. Raalte Combo BY, 
Deventerstraat 43, tel. 05720-54772. Ridderkerk 
Computer Centrum Randstad, St. Jorisstraat 3, 
tel. 01804-27878. Roermond Info 80, Minderbroe- 
dersingel 30a, tel. 04750-17520. Rotterdam A.C.C., 
Groothandelsgebouw A, 5e et., tel. 010-128640. 
Computerworld, Keerweer 99, tel. 010-137823. 
Confi Personal Computing, Vasteland 28, tel. 010- 
146941. Deltacom Informatiesyst. B.V., Koperstraat 
30, tel. 010-552555. Faab Software, Schiedamsedijk 
67a, tel, 010-332077. Heisterkamp & Partners, 
Statenweg 39, tel. 010-667933. Kraan Bouwcompu- 
ting, Weena 128, tel, 0/0-136950. MMS Compro- 
shop BV., Westblaak 15, tel. 010-132813. Rijswijk 
Biasc Computer Systems B.V., Bruyn Kopsstraat | 2- 
14, tel. 070-900100. Sneek Stercom BY, Mr. 
C.P.M. Rommestraat 6, tel. 05150-23885. Soest 


| Advisie BV., Vredehofstraat 13, tel. 02155-11434. 


Utrecht Heisterkamp & Partners, Oude Noord 
I 11, tel. 030-322633. Techmation/Crest BV., Savan- 


| nahweg 35, tel, 030-4201 22. Valkenswaard Cosmos 


Computer Service BV, Valkenierstraat 2, tel. 
04902-17940. Veendam Infocient, Eems 1/8, tel, 
05987-16018. Yzendoorn MBM Microsystemen, 
Keizerstraat 9, tel. 03444-3232. Zaandam Micro- 





plus, Zomerdik 31, tel. 075-351311, Zeist Compute 
Zeist BV, 2e Hogeweg 123, tel. 03404-25252. 
Zwolle B.S.G. Nederland BYV., Diezerplein 26, 
tel. 038-548855. 





